ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

calcul de la clé du numéro de sécurité sociale   



L'auteur

eric leissler
France France
Membre Simple
# 0000002784
enregistré le 06/03/2010
http://www.aumeric.fr
62 ans
leissler eric
85290 MORTAGNE SUR SEVRE
de la société AUMERIC LOGICIELS ( 0633412395 )
Fiche personnelle


Note des membres
17,5/20
2 votes


Contributions > 01 - PRG : Programmation > Calculs de clefs et Checksums (rib, iban, ...)

calcul de la clé du numéro de sécurité sociale
# 0000000242
ajouté le 23/09/2005 19:40:55 et modifié le 29/03/2006
consulté 16494 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0
VFP 5.0
VFP 3.0
FPW 2.6

Description

Bonsoir à toutes et à tous

envoyez le numéro de sécurité sociale au format caractères

et la fonction retourne la clé

Bon week end

Code source :
function calcnumsecu
PARAMETERS  nCode
    nCode   = Iif(substr(nCode,6,2)="2A",LEFT(nCode,5)+"19"+RIGHT(nCode,6),Iif(substr(nCode,6,2)="2B",LEFT(nCode,5)+"18"+RIGHT(nCode,6), nCode))
return    ALLTRIM(STR(97 - MOD(VAL(nCode),97)))


Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3