Bonjour,
parfois la fonction Mod qui travaille sur le type Long est en dépassement de capacité pour vérifier des clés, voici une fonction qui remédie à cette limite.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Function ResteModulo97(ByVal str As String) As Integer Dim i As Integer Dim Reste As Integer Reste = 0 For i = 0 To Len(str) - 1 Reste = (Reste * 10 + CInt(Mid(str, i + 1, 1))) Mod 97 Next i ResteModulo97 = Reste End Function
Partager