- Function Clé_Insee(Insee As String) As String
-
- Dim Insee_Compacté As String
-
- Insee_Compacté = NoSpaceInString(Insee)
- Clé_Insee = 97 - (((Left([Insee_Compacté], 9) Mod 97) & (Right([Insee_Compacté], 4))) Mod 97)
-
- End Function
-
- Function Controle_Clé_Insee(Insee As String, Clé_Reçue As String) As Boolean
-
- Controle_Clé_Insee = (Clé_Reçue = Clé_Insee(Insee))
-
- If Not Controle_Clé_Insee Then
- MsgBox "Clé Insee erronée", vbCritical, "Erreur"
-
- End If
-
- End Function
-
- Function NoSpaceInString(Chaine As String) As String
-
- Dim i As Integer
-
- For i = 1 To Len(Chaine)
- If Mid$(Chaine, i, 1) <> " " Then
- NoSpaceInString = NoSpaceInString & Mid$(Chaine, i, 1)
- End If
- Next i
-
- End Function
Function Clé_Insee(Insee As String) As String
Dim Insee_Compacté As String
Insee_Compacté = NoSpaceInString(Insee)
Clé_Insee = 97 - (((Left([Insee_Compacté], 9) Mod 97) & (Right([Insee_Compacté], 4))) Mod 97)
End Function
Function Controle_Clé_Insee(Insee As String, Clé_Reçue As String) As Boolean
Controle_Clé_Insee = (Clé_Reçue = Clé_Insee(Insee))
If Not Controle_Clé_Insee Then
MsgBox "Clé Insee erronée", vbCritical, "Erreur"
End If
End Function
Function NoSpaceInString(Chaine As String) As String
Dim i As Integer
For i = 1 To Len(Chaine)
If Mid$(Chaine, i, 1) <> " " Then
NoSpaceInString = NoSpaceInString & Mid$(Chaine, i, 1)
End If
Next i
End Function