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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 33 147 fois - Téléchargée 26 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
Messages postés
3
Date d'inscription
dimanche 4 décembre 2005
Statut
Membre
Dernière intervention
9 décembre 2005

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.
Messages postés
8
Date d'inscription
mardi 15 juin 2004
Statut
Membre
Dernière intervention
18 avril 2007

//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.
Messages postés
1
Date d'inscription
mardi 13 janvier 2004
Statut
Membre
Dernière intervention
2 février 2004

Qu'en est il des corses pour qui le numéro de sécu comporte une lettre?....
Messages postés
10
Date d'inscription
samedi 18 janvier 2003
Statut
Membre
Dernière intervention
7 avril 2012

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.
Messages postés
13
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
30 janvier 2004

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.