ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / алгоритм луна в excel или access
17 сообщений из 17, страница 1 из 1
алгоритм луна в excel или access
    #37815734
satway
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
satway
Гость
здравствуйте. Необходимо в эксель сделать проверку номеров карт по алгоритму Луна http://ru.wikipedia.org/wiki/%D0%90%D0%BB%D0%B3%D0%BE%D1%80%D0%B8%D1%82%D0%BC_%D0%9B%D1%83%D0%BD%D0%B0
Возможно ли сделать это без макросов? Или аналогичная задача в access
...
Рейтинг: 0 / 0
29.05.2012, 09:54
| Ответить | Цитировать | Написать  
алгоритм луна в excel или access
    #37815964
Михаил Ч.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Михаил Ч.
Гость
satway,
Нужно формулой?
Код: vbnet
1.
=ОСТАТ(СУММ(ОСТАТ(ПСТР(A1;{1:3:5:7:9:11:13:15}+{0;1};1)*{2;1};{9;10}));10)=0



или макросом?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Function Luna(num$) As Boolean
    Dim i%, sum%, p%
    For i = 1 To Len(num)
        p% = Val(Mid(num, i, 1))
        If i Mod 2 Then sum = sum + p * 2 Mod 9 Else sum = sum + p
    Next i
    Luna = sum Mod 10 = 0
End Function
...
Рейтинг: 0 / 0
29.05.2012, 11:41
| Ответить | Цитировать | Написать  
алгоритм луна в excel или access
    #37816085
satway
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
satway
Гость
класс, спасибо, все работает
...
Рейтинг: 0 / 0
29.05.2012, 12:21
| Ответить | Цитировать | Написать  
алгоритм луна в excel или access
    #37973722
tomik-04
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tomik-04
Гость
Помогите, копирую формулу в excel, а она не работает. Что делаю не так?
...
Рейтинг: 0 / 0
27.09.2012, 00:55
| Ответить | Цитировать | Написать  
алгоритм луна в excel или access
    #37973724
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
В какую ячейку копируете? Какое число заносите для проверки?
...
Рейтинг: 0 / 0
27.09.2012, 00:59
| Ответить | Цитировать | Написать  
алгоритм луна в excel или access
    #37974850
tomik-04
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tomik-04
Гость
Копирую в ячейку А2. Число заношу на проверку из 15 знаков в числовом формате
...
Рейтинг: 0 / 0
27.09.2012, 16:30
| Ответить | Цитировать | Написать  
алгоритм луна в excel или access
    #37974957
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Во-1, согласно статье число должно быть из 16 знаков.
Во-2, ячейке для числа надо установить текстовый формат, иначе оно будет округлено до 15 значащих цифр.
...
Рейтинг: 0 / 0
27.09.2012, 18:13
| Ответить | Цитировать | Написать  
алгоритм луна в excel или access
    #37975190
tomik-04
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tomik-04
Гость
Спасибо за ответ, но я может чего не понимаю : если поставить цифры из примера, то ответ ИСТИНА,
а если данные любой карты или набор из 16 цифр, то алгоритм дает ЛОЖЬ. Хотя если посчитать на бумажке,
то получится цифра кратная 10.
...
Рейтинг: 0 / 0
27.09.2012, 22:33
| Ответить | Цитировать | Написать  
алгоритм луна в excel или access
    #37975230
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
tomik-04,

И что? Алгоритм Луна "используется для вычисления контрольной цифры номера пластиковых карт в соответствии со стандартом ISO/IEC 7812. Не является криптографическим средством, предназначение алгоритма в первую очередь — выявление ошибок, вызванных непреднамеренным искажением данных" .
Таким образом, надо быть уверенным, что при формировании номера карты предусматривалась проверка контрольных разрядов и по алгоритму Луна, а не по каким-либо другим алгоритмам.
...
Рейтинг: 0 / 0
27.09.2012, 23:17
| Ответить | Цитировать | Написать  
алгоритм луна в excel или access
    #37975254
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Да, в формуле и в UDF ошибка. Неверно обрабатывается цифра 9 на нечетном месте: по алгоритму она должна превратиться обратно в 9 (9*2=18, сумма цифр 9 или 18-9=9), а тут она превращается в 0 (остаток от деления 18 на 9 =0).
Исправленная UDF:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Function Luna(num$) As Boolean
    Dim i%, sum%, p%
    For i = 1 To Len(num)
        p = Mid$(num, i, 1)
        If i Mod 2 Then p = p * 2: If p > 9 Then p = p - 9
        sum = sum + p
    Next i
    Luna = sum Mod 10 = 0
End Function
...
Рейтинг: 0 / 0
27.09.2012, 23:46
| Ответить | Цитировать | Написать  
алгоритм луна в excel или access
    #37975271
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Допилил формулу как смог - не формулист я :(
Но, работает правильно и с примером из статьи, и номером моей банковской карты :)

Код: vbnet
1.
=ОСТАТ(СУММ(ЕСЛИ(ПСТР(A1;{1:3:5:7:9:11:13:15}+{0;1};1)*{2;1}>9;ПСТР(A1;{1:3:5:7:9:11:13:15}+{0;1};1)*{2;1}-9;ПСТР(A1;{1:3:5:7:9:11:13:15}+{0;1};1)*{2;1}));10)=0
...
Рейтинг: 0 / 0
28.09.2012, 00:04
| Ответить | Цитировать | Написать  
алгоритм луна в excel или access
    #37975314
Михаил Ч.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Михаил Ч.
Гость
КазанскийДа, в формуле и в UDF ошибка.
Действительно, Алексей, не доглядел
А формулу можно немного короче:
Код: vbnet
1.
=ОСТАТ(СУММ(ПСТР(A1;{1:2:3:4:5:6:7:8}*2-{1;0};1)*{2;1}-(ПСТР(A1;{1:2:3:4:5:6:7:8}*2-{1;0};1)*{2;1}>9)*9);10)=0



Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Function Luna2(num$) As Boolean
    Dim i%, sum%, p%
    For i = 1 To Len(num)
        p = Mid$(num, i, 1) * (i Mod 2 + 1)
        sum = sum + IIf(p > 9, p - 9, p)
    Next i
    Luna2 = sum Mod 10 = 0
End Function
...
Рейтинг: 0 / 0
28.09.2012, 01:18
| Ответить | Цитировать | Написать  
алгоритм луна в excel или access
    #37977670
tomik-04
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tomik-04
Гость
Спасибо. Помогли!!!
...
Рейтинг: 0 / 0
30.09.2012, 22:27
| Ответить | Цитировать | Написать  
алгоритм луна в excel или access
    #37977692
tomik-04
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tomik-04
Гость
Может вопрос не по теме, но я немного туплю - как правильно вставить макрос в excel?
...
Рейтинг: 0 / 0
30.09.2012, 22:56
| Ответить | Цитировать | Написать  
алгоритм луна в excel или access
    #37977708
Фотография Serge 007
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge 007
Участник
tomik-04,

В Excel макрос вставить невозможно, его можно "вставить" в VBA (Alt+F11)
...
Рейтинг: 0 / 0
30.09.2012, 23:20
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
алгоритм луна в excel или access
    #38481137
Jin13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jin13
Гость
Ребята, помогите, пожалуйста, с формулой определения контрольной цифры по алгоритму Луна, на примере 19-значной мгнитной карты.
Например, я имею ряд из 18 цифр 708337325500116001, какая будет последняя?
Очень нужна такая формула.
Спасибо.
...
Рейтинг: 0 / 0
28.11.2013, 09:39
| Ответить | Цитировать | Написать  
алгоритм луна в excel или access
    #38495008
Fireman13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fireman13
Участник
Jin13,

Правсимвл(txt,1)

Вот последнее число.
...
Рейтинг: 0 / 0
10.12.2013, 09:48
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / алгоритм луна в excel или access
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37977708&tid=2174356]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 60ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 14ms
total:  170ms
созд. / загр.: 170ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]