Check Digit Digit terakhir dari barcode, digunakan untuk verifikasi bahwa barcode telah dipindai dengan benar
Berikut adalah code nya
Dim data as string
Data = "" 'isi dengan punya mu sendiri
i = 1
While i <= Len(DaTa)
x = x + Val(Mid(DaTa, i, 1))
y = y + Val(Mid(DaTa, i + 1, 1))
i = i + 2
Wend
x = x * 3
i = (10 - (x + y) Mod 10) Mod 10
DaTa = DaTa + Trim(Str(i))
0 Komentar:
Posting Komentar