L'auteur eric leissler France Membre Simple # 0000002784 enregistré le 06/03/2010 http://www.aumeric.fr 68 ans LEISSLER Eric 85290 MORTAGNE SUR SEVRE de la société AUMERIC LOGICIELS Fiche personnelle
Note des membres 20/20 1 vote
Contributions > 01 - PRG : Programmation > Calculs de clefs et Checksums (rib, iban, ...)
fonction de calcul d'une clé rib
# 0000000054
ajouté le 15/11/2004 09:38:11 et modifié le 24/05/2010
consulté 15750 fois
Niveau
initié
Juste une petite fonction a qui l'on envoie un numéro de compte et
qui retourne la clé rib
parce que j'en avais besoin, et que je n'ai pas trouvé.
Donc si elle peut rendre service.
atoutfoxment votre
Eric
Code source :
function clerib(nu_compte) local premier,deuxieme,troisime,prerest,deuxrest,troisrest,valretour *********************************************************************** * la fonction doit recevoir le numéro de compte en parametres * 5 digits pour le code établissement * 5 digits pour le code guichet * 11 digits pour le numéro de compte soit 21 digits au total * la clé rib est renvoyé par la fonction en numérique * * Pour les comptes CCP les lettres sont remplacées par des chiffres * selon la convention ci_dessous * * A=1 j=1 b=2 k=2 etc..etc ***********************************************************************
* changement des lettres en chiffres grace à la fonction strtran
m.nu_compte=ChrTran(m.nu_compte,"AJBKSCLTDMUENVFOWGPXHQYIRZ","11222333444555666777888999") * vérification du numéro de compte 21 digits en tout iflen(m.nu_compte)#21 messagebox(" Numéro de compte non valide") return"0" endif
m.valretour="0" * calcul de la clé
m.nu_compte=m.nu_compte+"00"
m.premier=substr(m.nu_compte,1,7)
m.deuxieme=substr(m.nu_compte,8,8)
m.troisieme=substr(m.nu_compte,16,8)
m.prerest=alltrim(str(mod(val(m.premier),97)))
m.deuxieme=m.prerest+m.deuxieme
m.deuxrest=alltrim(str(mod(val(m.deuxieme),97)))
m.troisieme=m.deuxrest+m.troisieme
m.troisrest=alltrim(str(mod(val(m.troisieme),97)))
le 21/11/2004, eric leissler a écrit : BONJOUR A TOUS La fonction de calcul de la clé rib fonctionne également pour le calcul de la clé IBAN . Ce n'est donc pas typiquement francais mais européen. Plusieurs pays utilisent de standard, c'est le cas beaucoup de pays africains, dont la Mauritanie.
Retour à la liste
France
Fiche personnelle
Note des membres
BONJOUR A TOUS
La fonction de calcul de la clé rib fonctionne également pour le calcul de la clé IBAN .
Ce n'est donc pas typiquement francais mais européen.
Plusieurs pays utilisent de standard, c'est le cas beaucoup de pays africains, dont la Mauritanie.