Calcul d'une clée du numéro de sécurité sociale

1/5 (7 avis)

Snippet vu 33 875 fois - Téléchargée 27 fois

Contenu du snippet

Ce code permet de calculer la clée (2 chiffres) d'un code de sécurité sociiale(13 chiffres)
Il peut servir aux professionnels de santé qui désirent se faire un petit programme de vérification de clée SS.

Source / Exemple :


Public Function ClefSS(NumSS As Variant) As Variant '13 chiffres'
Dim N As Variant
Dim C As Variant
N = NumSS
C = Int(N / 97)
C = C * 97
C = N - C
ClefSS = 97 - C
End Function

A voir également

Ajouter un commentaire Commentaires
sanaa077 Messages postés 3 Date d'inscription dimanche 4 décembre 2005 Statut Membre Dernière intervention 9 décembre 2005
8 déc. 2005 à 17:29
merci "UZMENAZ" d'avoir détaillé le calcul de la clé de contrôle car je n'avais pas réussi à ouvrir la source.Si vous pouviez nous donner un exemple concret, ce serai bien, car j'ai tout de même essai le calcul manuellement mais je n'ai pas trouvé le bon numéro. En effet, qu'entendez-vous par le nombre formé des 13 premiers chiffres, est-ce qu'il faut les additionner (exple: 1+82+01+..+...+...) ou ... autrement? merci d'avance pour votre réponse.
Par ailleurs, si vous connaissez une astuce pour calculer le reste d'une division plus rapidement qu'en résolvant l'opération, merci de nous la faire partager.
uzmenaz Messages postés 8 Date d'inscription mardi 15 juin 2004 Statut Membre Dernière intervention 18 avril 2007
14 juin 2005 à 15:31
//Calcul de la clé de contrôle :
//diviser par 97 le nombre formé par les 13 premiers chiffres, prendre le reste de cette division, puis le complément à 97.
//Pour la Corse, les lettres A et B sont remplacées par des zéros, et on soustrait du nombre à 13 chiffres ainsi obtenu 1 000 000 pour A et 2 000 000 pour B.
zesong Messages postés 1 Date d'inscription mardi 13 janvier 2004 Statut Membre Dernière intervention 2 février 2004
2 févr. 2004 à 10:03
Qu'en est il des corses pour qui le numéro de sécu comporte une lettre?....
cs_DG78 Messages postés 10 Date d'inscription samedi 18 janvier 2003 Statut Membre Dernière intervention 7 avril 2012
2 févr. 2004 à 09:33
Le but d'un tel petit "bout de code" n'est pas de donner des variables typées machin, truc ... mais de fournir l'algorithme de calcul de la clé de la sécu, ce que nous donne très bien jvuillaume. Libre à chacun de l'adapter ensuite dans "son" langage.
Merci.
cs_YAKA Messages postés 13 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 30 janvier 2004
30 janv. 2004 à 15:44
Ok changez les declarations de type as Variant par as Double.
Afficher les 7 commentaires

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.