Calcul clé insee (n° sécurité sociale)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 55 733 fois - Téléchargée 80 fois
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
- Calcul cle secu
- Calcul clé ss - Meilleures réponses
- Calcul secu - Meilleures réponses
- Foxpro : Calcul de la cle du matricule securite sociale - CodeS SourceS - Guide
- Delphi / Pascal : Calculer la clé de la sécurité sociale francaise - CodeS Sour - Guide
- Visual Basic / VB.NET : Calculer la clé de sécurité sociale - CodeS SourceS - Guide
- Visual Basic / VB.NET : Calcul d'une clée du numéro de sécurité sociale - Guide
- Calcul cle securite sociale - Guide
Commentaires
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 !
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.