Cette fonction VB teste et donne la clé d'un N° de sécu (INSEE)
Source / Exemple :
Public Function TestCle97(cNumero As String) As String
' Teste et calcule le clé de type 97 d'une numéro 'cNumero' complet
' Renvoi cette clé
Dim x1 As Currency
Dim x3 As Integer
' N° insee PROVIsoire...
cNumero = Stuff(cNumero, "PROVIS", "796592")
cNumero = Stuff(cNumero, "2A", "19")
cNumero = Stuff(cNumero, "2B", "18")
x1 = CCur(Val(Mid$(cNumero, 1, 13)))
x3 = 97 - (x1 - (Int((x1 / 97)) * 97))
TestCle97 = Format$(x3, "00")
End Function
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.