Teste un n° de sécu (modulo 97)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 440 fois - Téléchargée 43 fois

Contenu du snippet

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

A voir également

Ajouter un commentaire Commentaire
Messages postés
85
Date d'inscription
mardi 29 janvier 2002
Statut
Membre
Dernière intervention
18 avril 2005

et ca sert a koi de savoir un numéro kom ca o pif ?
PtitJeoJeo

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.