Нужна помощь в написании формулы\макроса по алгоритму Луна.
есть 18 цифр и мне нужно получить 19ое число по этому алгоритму. На просторах инета нашёл только формулы для проверки на ложь\истину контрольного числа.Мне же нужно чтобы контрольное число генерировалось и подставлялось.
Вот формула истина\ложь:
нашёл макрос:
но он тоже проверяет на ложь, истина......
есть 18 цифр и мне нужно получить 19ое число по этому алгоритму. На просторах инета нашёл только формулы для проверки на ложь\истину контрольного числа.Мне же нужно чтобы контрольное число генерировалось и подставлялось.
Вот формула истина\ложь:
| Код |
|---|
=ОСТАТ(СУММ(ПСТР(B2;{1:2:3:4:5:6:7:8}*2-{1;0};1)*{2;1}-(ПСТР(B2;{1:2:3:4:5:6:7:8}*2-{1;0};1)*{2;1}>9)*9);10)=0 |
нашёл макрос:
| Код |
|---|
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 |
Изменено: - 14.07.2021 12:53:54
