Calcul clé insee (n° sécurité sociale)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 55 969 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 cle ss - Meilleures réponses
- Calcul secu - Meilleures réponses
- Visual Basic / VB.NET : Calcul d'une clée du numéro de sécurité sociale - Guide
- Visual Basic / VB.NET : Calculer la clé sécu. social.... - CodeS SourceS - Guide
- Calcul clé rib - Guide
- Calcule clé rib dans une interface boite de dialogue windows - Codes sources - C / C++ / C++.NET (.Net)
- Visual Basic / VB.NET : Ecbs calcul clé rib et iban - CodeS SourceS - Guide
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.