Calcul clé insee (n° sécurité sociale)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 56 466 fois - Téléchargée 82 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
- Cle securite sociale
- Calcul cle ss - Meilleures réponses
- Calcul clé sécurité sociale - Meilleures réponses
- Visual Basic / VB.NET : Calculer la clé sécu. social.... - CodeS SourceS - Guide
- Calcul clé sécurité sociale en ligne - Guide
- Calcul cle securite sociale - Guide
- Visual Basic / VB.NET : Calculer la clé de sécurité sociale - CodeS SourceS - Guide
- Foxpro : Calcul de la cle du matricule securite sociale - CodeS SourceS - Guide
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.