Calcul clé insee (n° sécurité sociale)

Commenter

Contenu du snippet

Comme son nom l'indique. Cette routine calcule ou contrôle un numéro Insee.

Source / Exemple : 


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

A voir également

S'inscrire maintenant

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.

Du même auteur (Jacques PRESTREAU)