begin process at 2012 02 16 16:50:19
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Modules

 > CALCUL CLÉ INSEE (N° SÉCURITÉ SOCIALE)

CALCUL CLÉ INSEE (N° SÉCURITÉ SOCIALE)


 Information sur la source

Note :
7,86 / 10 - par 7 personnes
7,86 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Modules Classé sous :calcul, cle, insee Niveau :Débutant Date de création :21/07/2000 Vu :48 094

Auteur : Jacques PRESTREAU

Ecrire un message privé
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

 Description

Comme son nom l'indique. Cette routine calcule ou contrôle un numéro Insee.

Source

  • Function Clé_Insee(Insee As String) As String
  • Dim Insee_Compacté As String
  • Insee_Compacté = NoSpaceInString(Insee)
  • Clé_Insee = 97 - (((Left([Insee_Compacté], 9) Mod 97) & (Right([Insee_Compacté], 4))) Mod 97)
  • End Function
  • Function Controle_Clé_Insee(Insee As String, Clé_Reçue As String) As Boolean
  • Controle_Clé_Insee = (Clé_Reçue = Clé_Insee(Insee))
  • If Not Controle_Clé_Insee Then
  • MsgBox "Clé Insee erronée", vbCritical, "Erreur"
  • End If
  • End Function
  • Function NoSpaceInString(Chaine As String) As String
  • Dim i As Integer
  • For i = 1 To Len(Chaine)
  • If Mid$(Chaine, i, 1) <> " " Then
  • NoSpaceInString = NoSpaceInString & Mid$(Chaine, i, 1)
  • End If
  • Next i
  • End Function
Function Clé_Insee(Insee As String) As String

Dim Insee_Compacté As String

Insee_Compacté = NoSpaceInString(Insee)
Clé_Insee = 97 - (((Left([Insee_Compacté], 9) Mod 97) & (Right([Insee_Compacté], 4))) Mod 97)

End Function

Function Controle_Clé_Insee(Insee As String, Clé_Reçue As String) As Boolean

Controle_Clé_Insee = (Clé_Reçue = Clé_Insee(Insee))

If Not Controle_Clé_Insee Then
   MsgBox "Clé Insee erronée", vbCritical, "Erreur"

End If

End Function

Function NoSpaceInString(Chaine As String) As String

Dim i As Integer

For i = 1 To Len(Chaine)
   If Mid$(Chaine, i, 1) <> " " Then
      NoSpaceInString = NoSpaceInString & Mid$(Chaine, i, 1)
   End If
Next i

End Function



 Sources du même auteur

CALCUL DE RIB
BOÎTES DE DIALOGUE STANDARDISÉES
PILOTER EXCEL PAR OLE AVEC ACCESS OU VB
PILOTER WORD PAR OLE AVEC ACCESS OU VB
CALCUL SIREN ET SIRET

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) CRYPTAGE ET DECRYPTAGE par jerichez
Source avec Zip Source avec une capture Source .NET (Dotnet) EXEMPLE MODBUS POUR MODULES ADAM, BECKHOFF, WAGO par mnmsjaune
Source avec Zip Source .NET (Dotnet) CRÉER SON PROPRE DESIGNER COMME CELUI DE VISUAL STUDIO par ShareVB
Source avec Zip Source .NET (Dotnet) CONVERSION UTM VERS LAT/LONG par BarresLTD
Source avec Zip CPROPGROUP : COLLECTION FAITE MAISON par Flocreate

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture CALCUL DE PLACEMENT OU DE PRET - MENSUALITES - MONTANT - D... par lexsty
Source avec Zip Source .NET (Dotnet) NOMBRES PRIMORDIAUX par alpha5
Source avec Zip Source avec une capture SUDOKU SOLVEUR CRIBLE par ccgousset
Source avec Zip Source avec une capture Source .NET (Dotnet) CALCUL DE RÉSISTANCE par Jeromedu79
Source avec Zip CRYPTER-DÉCRYPTER UN TEXTE - TEXTE CRYPTÉ UNIQUEMENT EN MAJ... par Saintache

Commentaires et avis

Commentaire de rnosat le 13/09/2003 15:26:23

un exemple ou un zip serait le bienvenu , non ?
A +
RnoSat

Commentaire de dapo le 11/10/2004 11:08:54

Mouais... Cette version ne prend pas en compte "l'exception corse" (CI de naissance contient "2A" ou "2B").

Pour cela :
- remplacer le caractère alphanumérique (A ou B) par un "0" (zéro).
- soustraire du nombre à 13 chiffres la valeur 1000000 (si la lettre était A) ou 2000000 (si la lettre était B)
- effectuer ensuite le calcul "normal"

Voilà, c'est tout !

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

calcul des jours fériés [ par fred ] Je cherche un source sur le calcul des jours fériés. En entree on a une date et on doit savoir en sortie si c'est un jour ferie ou pas.J'attends votre Calcul binaire [ par kequo ] peut on faire du calcul binaire avec VB? si oui comment Pb de calcul [ par thomas ] Salut,Je fais en ce moment un petit programme sous VB qui me permet de saisir un calcul dans une zone de saisie (text1), par exemple "8+9*36" et je vo Pb de calcul [ par thomas ] Salut,Je fais en ce moment un petit programme sous VB qui me permet de saisir un calcul dans une zone de saisie (text1), par exemple "8+9*36" et je vo Calcul de chiffres à virgule [ par WareG ] Je doit calculer des sommes à virgule, mais le probleme est le suivant, lorsque je fais la somme par le code suivant j'ai un nombre à virgule beaucoup calcul a virgule [ par WareG ] J'ai bien reç votre code pour le calcul de chiffre à virguleDim Var1, Var2 As SingleVar1 = Text1.TextVar2 = Text2.TextText2.Text = (Int((Var1 + Var2) CALCUL FORMEL [ par mr_schmit ] Bonjour,Je cherche à dévelloper un prog en VB qui fasse du calcul formel, càd calcul avec des lettres.Si qqun à une idée... @+ Cadre d'objet indépt, feuille de calcul excel [ par Julie ] En vba, comment insérer des données issues de requête dans une feuille de calcul excel créée dans un formulaire(avec l'outil: cadre d'objet indépendan Calcul du debit recu et envoyer [ par pirjo ] Bonjour,Je de dois faire une applic qui doit gerer et detecter la connection.Je voudrais savoir comment calculer,par le biais du modem, le débit recu Calcul simple de crédit [ par cgelle ] Je cherche un petit logiciel en vbscript pour effectuer une mini simulation de crédit .Qui peut m'aider ?Merci<td


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,137 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales