AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 07 00:01:03
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CALCUL D'UNE CLÉE DU NUMÉRO DE SÉCURITÉ SOCIALE


Information sur la source

Catégorie :Divers Niveau : Débutant Date de création : 29/01/2004 Vu : 20 794
Auteur : jvuillaume Ecrire un message privé
Note :
6,5 / 10 - par 2 personnes
6,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note

Description

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

  • 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 
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

Commentaires et avis

signaler à un administrateur
Commentaire de Renfield le 29/01/2004 19:42:06 administrateur CS

Cours, concis, direct, on regrette juste que les variables ne soient pas typées...

signaler à un administrateur
Commentaire de Psykos7 le 30/01/2004 02:35:12

meme chose, variables pas parlante du tout

signaler à un administrateur
Commentaire de YAKA le 30/01/2004 15:44:10

Ok changez les declarations de type as Variant par as Double.

signaler à un administrateur
Commentaire de DG78 le 02/02/2004 09:33:57

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.

signaler à un administrateur
Commentaire de zesong le 02/02/2004 10:03:06

Qu'en est il des corses pour qui le numéro de sécu comporte une lettre?....

signaler à un administrateur
Commentaire de uzmenaz le 14/06/2005 15:31:00

//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.

signaler à un administrateur
Commentaire de sanaa077 le 08/12/2005 17:29:46

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.

Ajouter un commentaire

Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version


LG KP501
Entre 9€ et 159€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto Cockpit Airbus A320
Photo corps parfaitPhoto bassin pour poisson rouge

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,359 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.