MODULO 10 RÉCURSIF POUR VB ET CR

// version VB

Function Modulo10(ByVal StrNbre As String) As Integer

Dim modTable(0 To 9) As Integer
Dim modReport As Integer
Dim modSerie As Integer
    
    modTable(0) = 0: modTable(1) = 9
    modTable(2) = 4: modTable(3) = 6
    modTable(4) = 8: modTable(5) = 2
    modTable(6) = 7: modTable(7) = 1
    modTable(8) = 3: modTable(9) = 5
    
    For modSerie = 1 To Len(StrNbre)
        modReport = modTable((modReport + Mid(StrNbre, modSerie, 1)) Mod 10)
    Next
    
    Modulo10 = (10 - modReport) Mod 10
    
    
End Function




//Version Crystal Report (edition de fonction en "Basic Syntax")

Function modulo10 (StrNbre as string) as number

Dim modTable() As number
modTable = array (1,2,3,4,5,6,7,8,9,10)
Dim modReport As number
Dim modSerie As number
Dim Nbretemp as number
    
    modTable(1) = 0: modTable(2) = 9
    modTable(3) = 4: modTable(4) = 6
    modTable(5) = 8: modTable(6) = 2
    modTable(7) = 7: modTable(8) = 1
    modTable(9) = 3: modTable(10) = 5
    
    For modSerie = 1 To Len(StrNbre)
        Nbretemp = tonumber(Mid(StrNbre, modSerie, 1))
        modReport = modTable(((modReport + Nbretemp) Mod 10)+1)
    Next
    
    Modulo10 = (10 - modReport) Mod 10
End Function