bonjour,
une petite fonction pour calculer les clés type 1-2 :
Test :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Public Function CalculCleType1_2(ByVal sNumero As String) As Byte Dim i As Integer, iVal As Integer, iSomme As Integer Dim bPair As Boolean For i = Len(sNumero) To 1 Step -1 iVal = CInt(Mid$(sNumero, i, 1)) * (bPair + 2) iSomme = iSomme + iVal \ 10 + iVal Mod 10 bPair = Not bPair Next i CalculCleType1_2 = 10 - iSomme Mod 10 End Function
Référence ici.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Public Function TestClef() Dim sNum As String sNum = "76031208" 'Clef calculée doit être = à 2 Debug.Print CalculCleType1_2(sNum) End Function
Philippe
Partager