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))
Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa
No comments:
Post a comment