By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
Do you make invoices in Domino? Then you might be interested in Checksiffers in CID. This code makes MOD10.
Code: Function mod10(siffer As String) As String Dim lengde As Integer Dim strpos As Integer Dim felt As Integer Dim sifsum As Integer Dim pos As Integer Dim vekt As Integer strpos = Len(siffer) vekt = 2 pos = 0 While strpos > 0 felt = Cint(Mid(siffer,strpos,1)) strpos = strpos - 1 sifsum = sifsum + Cint(Mid(Cstr(felt*vekt),1,1)) + Cint("0" & (Mid(Cstr(felt*vekt),2,1))) If vekt = 2 Then vekt = 1 Else vekt = 2 End If Wend mod10 = Cstr(10 - Right(sifsum,1)) If mod10 = Cstr(10) Then mod10 = "0" End If End Function