Форум OlegON > Компьютеры и Программное обеспечение > Операционные системы и программное обеспечение

Сгененрировать 360000 случайных шк - каким инструментом? : Операционные системы и программное обеспечение

29.03.2024 2:06


19.09.2019 10:19
Shift
 
Для ean13
Код:
K=123456789012


i=6
ch=0
nch=0

tk=K
while (i>0)
  i=i-1
  ch=ch+(tK-Int(tK/10)*10)
  tK=int(tK/10)
  nch=nch+(tK-Int(tK/10)*10)
  tK=int(tK/10)

wend
ch=ch*3
kc=10-((ch+nch) mod 10)
if (kc=10) then 
  kc=0 
end if
K=K*10+kc

Msgbox K
19.09.2019 13:28
УКМ_эксплуатант_2
 
На словах вот что нашел:
Цитата:
Как уже упоминалось выше, в данном коде используется 12 цифр. Последний, 13 знак, является контрольным. Проведем расчет 13 знака:
1. Сначала сложим все цифры, стоящие на четных местах: 1+0+0+0+0+0+1=2
2. Полученную сумму умножим на три: 2х3=6
3. Далее сложим цифры, стоящие на нечетных местах:2+5+0+0+0+0=7
4. Затем сложим полученные цифры в пункта 2 и 3: 6+7=13
5. Отбрасываем десятки, получим 3
6. Наконец, из 10 вычитаем число из п.5 и получаем контрольную сумму: 10-3=7
Кажется, мне придется переделать файл, шоб красиво було...

З.Ы. В прошлый раз прокатило и без этого 13 символа
19.09.2019 13:35
OlegON
 
Цитата:
УКМ_эксплуатант_2 В прошлый раз прокатило и без этого 13 символа
Это если это не штрихкод, точнее, не EAN13. Тебе выше пример на васике привели, засобачь его в функцию и вперед по колонке с индексом...
19.09.2019 13:51
KirillHome
 
Цитата:
OlegON Кстати, если написал или нашел тут, как делать из индекса штрихкод (контрольку) - выложи? Я что-то не найду.
Давным-давно, в одной далёкой галактике
19.09.2019 16:23
OlegON
 
Спасибо, но это не то :) Я именно на Excel тоже собирал... Сидел где-то на внедрении и надо было кучу штрихкодов нагенерить для дисконток...
Часовой пояс GMT +3, время: 02:06.

Форум на базе vBulletin®
Copyright © Jelsoft Enterprises Ltd.
В случае заимствования информации гипертекстовая индексируемая ссылка на Форум обязательна.