Fonction de calcul de cle rib

Soyez le premier à donner votre avis sur cette source.

Snippet vu 28 564 fois - Téléchargée 31 fois

Contenu du snippet

Il s'agit d'une fonction simble de calcul de clé rib. ca tient en quelques lignes, c'est simple et ca fonctionne sur tout types de comptes

Source / Exemple :


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
* nu_compte=ChrTran(nu_compte,"AJBKSCLTDMUENVFOWGPXHQYIRZ","11222333444555666777888999")
  • vérification du numéro de compte 21 digits en tout
if len(nu_compte)#21 messagebox(" Numéro de compte non valide") return "0" endif valretour="0"
  • calcul de la clé
nu_compte=nu_compte+"00" premier=substr(nu_compte,1,7) deuxieme=substr(nu_compte,8,8) troisieme=substr(nu_compte,16,8) prerest=alltrim(str(mod(val(premier),97))) deuxieme=prerest+deuxieme deuxrest=alltrim(str(mod(val(deuxieme),97))) troisieme=deuxrest+troisieme troisrest=alltrim(str(mod(val(troisieme),97))) valretour=97-val(troisrest) valretour=alltrim(str(valretour)) return valretour

Conclusion :


Merci à thierry

A voir également

Ajouter un commentaire

Commentaire

ThierryPerretier
Messages postés
103
Date d'inscription
mardi 5 octobre 2004
Statut
Membre
Dernière intervention
6 juillet 2006

Utiliser la fonction ChrTran() au lieu de StrTran() :

nu_compte=ChrTran(nu_compte,"AJBKSCLTDMUENVFOWGPXHQYIRZ","11222333444555666777888999")

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.