Discussion :

[lerorodu51]

Bonjour, j'ai une formule Excel que je vois transposer en code Delphi mais je recontrre quelques soucis...

Voici la formule Excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DROITE(0&98-MOD(MOD(MOD(MOD(STXT('TEST';1;8);97)&STXT('TEST';9;8);97)&STXT('TEST'&142800;17;8);97)&STXT('TEST'&142800;25;2);97);2)

Et voici ce que j'ai commencé à faire en delphi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 RightStr(('098-'+((MidStr('TEST',1,8) mod 97) + MidStr(CoBanque,9,8)+MidStr('TEST'+'142800',17,8) mod 97) + MidStr('TEST'+'142800',25,2) mod 97),2);

Merci d'avance

[e-ric]

Salut

J'ai saisi ta formule dans Excel 2010, elle provque une erreur (#VALEUR!)
Sais-tu ce qu'elle est sensée faire ? Cela ressoemble à un calcul de clé.
Le mieux est de repartir du but et d'en déduire une fonction à écrire en Delphi.

Cdlt

[lerorodu51]

Oui c'est un calcul de clé et normal qu'elle te retourne une erreur vu qu'à la place de 'TEST' c'est un numéro de compte Bancaire. C'est la méthode de calcul d'un IBAN Espagnol

[e-ric]

Comme je n'ai pas trop le temps ni Delphi pour faire des tests, je t'invite à te rendre à http://fr.wikipedia.org/wiki/ISO_13616.

Pour le code ci-dessous, MidStr retourne une chaîne de caractères et non pas un entier, il faut donc convertir la chaîne en entier avec StrToInt avant d'appeler mod. Sinon delphi pas content...

@+