[ОТВЕТИТЬ]
Опции темы
13.03.2007 13:05  
OlegON
Код:
Sub EAN13()
For t = 1 To Excel.Selection.Cells.Count
NCet = 0
Cet = 0
Temp = Excel.Selection.Cells(t).Value
Temp2 = Str$(Temp)
For i = 2 To Len(Temp2) Step 2
NCet = NCet + Val(Mid$(Temp2, i - 1, 1))
Cet = Cet + Val(Mid$(Temp2, i, 1))
Next
NCet = NCet + Val(Mid$(Temp2, 13, 1))
Razn = 0 - (Int(0 - (((NCet * 3) + Cet) + 5) / 10)) * 10
Excel.Selection.Cells(t).Value = Val(Str$(Excel.Selection.Cells(t).Value) + Str$((Razn - ((NCet * 3) + Cet))))
Next
End Sub
 
13.03.2007 14:43  
kadr
А я для этого FastReport пользовал *02 , у него автоматом рассчитывается контролька
 
13.03.2007 14:49  
OlegON
Это я в Уссурийске сидел, ковырялся, хорошо, хоть Эксль под рукой был, ноута тогда еще не дали. Надо было из номеров дисконток сделать им ш/к или какая-то такая хитрость. Давно было, не помню уже сути. Но как факт, была колонка номеров, надо было сделать из них ш/к... Там же, в эксле и скрипт на внесение номеров в базу собрали. Подручные средства. Но суть - алгоритм.
 
 
Опции темы



Часовой пояс GMT +3, время: 23:19.

Все в прочитанное - Календарь - RSS - - Карта - Вверх 👫 Яндекс.Метрика
Форум сделан на основе vBulletin®
Copyright ©2000 - 2016, Jelsoft Enterprises Ltd. Перевод: zCarot и OlegON
В случае заимствования информации гипертекстовая индексируемая ссылка на Форум обязательна.