[Math] Modulo de la division par 97

[cafeine]

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 :

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

[philben]

bonjour Caféine,

une alternative pour résoudre le problème, est de passer par un type décimal et ça semble fonctionner pour cet usage :

Code :

1
2
3
4
5
 
Dim vNum As Variant, vTmp As Variant
vNum = CDec("783528889315111483")
vTmp = vNum / 97
Debug.Print CByte((vTmp - Int(vTmp)) * 97)

Dépassement de capacité de CDec() pour les nombres supérieurs à "79228162514264337593543950335" ou 29 chiffres.

sauf erreur,

cordialement,

Philippe