Soyez le premier à donner votre avis sur cette source.
Snippet vu 56 466 fois - Téléchargée 82 fois
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
11 oct. 2004 à 11:08
Pour cela :
- remplacer le caractère alphanumérique (A ou B) par un "0" (zéro).
- soustraire du nombre à 13 chiffres la valeur 1000000 (si la lettre était A) ou 2000000 (si la lettre était B)
- effectuer ensuite le calcul "normal"
Voilà, c'est tout !
13 sept. 2003 à 15:26
A +
RnoSat
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.