Calcul Clé RLMC par modulo 97
Philippe FOULON
Je cherche à calculer la Clé RLMC sur un cheque.
pour cela j'utilise l'opérateur MOD mais je ne connais pas le découpage
de la ligne CMC7 pour appliquer l'opérateur mod.
Il doit forcément y en avoir un découpage pour éviter l'erreur 6
(dépassement de capacité).
qq'un peut-il m'aider ?
Merci
Philippe FOULON
merci et à la prochaine.
Picalausa François
Sur les newsgroups, il est coutume de donner la solution que l'ont a trouvée
pour pouvoir en faire profiter les autres et/ou pour que les autres puissent
l'améliorer!
Quelle est donc ta solution?
--
@++
Picalausa François
MVP VB
---------------------------------------
La FAQ VB à cette adresse :
http://faq.vb.free.fr
La MSDN:
http://msdn.microsoft.com
---------------------------------------
"Philippe FOULON" <Uda...@Wanadoo.fr> a écrit dans le message de news:
3DEE14E0...@Wanadoo.fr
Philippe FOULON
Dim lezrib
Dim Z1 As Double
Dim Z2, Z3, Z4, Z5, Z6, Z7
Dim Z8 As Double
Dim Z9 As Double
Dim Z10 As Double
'Chaine Lezrib= Ligne CMC7 Concaténée
lezrib = "3140080034013xx69080616xx260000"
Z1 = Mid(lezrib, 1, 8)
Z2 = (Z1 Mod 97)
Z3 = Z2 & Mid(lezrib, 9, 6)
Z4 = (Z3 Mod 97)
Z5 = Z4 & Mid(lezrib, 15, 6)
Z6 = (Z5 Mod 97)
Z7 = Z6 & Mid(lezrib, 21, 6)
Z8 = (Z7 Mod 97)
'Il faut rajouter "00" à la fin de Z9
Z9 = Z8 & Mid(lezrib, 27, 5) & "00"
Z10 = (Z9 Mod 97)
Z10 = 97 - Z10
MsgBox Z10
Z10 = la Clé Rlmc
Zoury
ton code ne fonctionne pas, j'obtiens l'erreur 13 (type mismatch) à la ligne
suivante :
> Z4 = (Z3 Mod 97) ' Z3 contient "5735013x"
je ne peux pas vraiment t'aider plus, car je ne connais pas du tout la clé
RLMC, parcontre, ça pourrait être une bonne idée de typé tes variables (As
...) lorsque tu les déclares. Tu peux également effectuer le même traitement
avec beaucoup moins de variable.
--
Cordialement
Zoury
_________________________________________
Merci de répondre dans le newsgroup :O)
La FAQ VB
http://faq.vb.free.fr
API-Guide, indispensable pour les APIs
http://www.allapi.net/agnet/apiguide.shtml
Mz-Tools, add-in pour VB
http://www.mztools.com/
*************************************************************
"Philippe FOULON" <Uda...@Wanadoo.fr> wrote in message
news:3DEE33C1...@Wanadoo.fr...
Philippe FOULON
Il est normal que tu es ce type d'erreur, j'ai remplacé quelques
chiffres par des x.
il faut donc que tu prennes une ligne CMC7 valide (avec que des
chiffres).
Effectivement, le code que j'ai mis sur le forum peut surement être
optimisé.
Merci,
p foulon
