Discussion :

[dai.kaioh]

Bonjour,

Je dois calculer la Clé RIB, j'ai trouvé un algo mais je ne sais pas si c'est le bon.

J'ai une erreur de dépassement de capacité sur ma cle3 mon ICpt est un nombre sur 11 chiffres

voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function Cle_rib(Banque As String, Guichet As String, Compte As String) As Double
Dim IBanque, IGuichet, ICpt, Numero_Compte As Double
Dim cle1, cle2, cle3, clefinale As Double
 
 
 
IBanque = CDbl(Banque)
IGuichet = CDbl(Guichet)
ICpt = CDbl(Compte)
 
 
cle1 = (IBanque * 8) Mod 97
cle2 = 97 - ((IGuichet * 15) Mod 97)
cle3 = 97 - ((ICpt * 3) Mod 97)
 
 
clefinale = (cle1 + cle2 + cle3) Mod 97
 
Cle_rib = clefinale
 
End Function

[120]

as tu essayer de déclarer tes variables cle1, cle2, cle3, clefinale en variant?

[dai.kaioh]

Oui en variant et en long mais rien n'a faire tjs dépassement de capacité

Ma variable Compte contient 11 chiffres

La je ne comprends pas

[Seto]

Essaie sans le "cdbl" (si tu n'as que des chiffres dans ta variable compte, ça devrait marcher)

[dai.kaioh]

Tjs pareil il bloque sur le calcul de ma cle3

[Seto]

Et si tu essayais de décomposer ton operation en 3 parties? (une pour chaque calcul) avec des variables de type long (ça devrait suffire)

[Delphi-ne]

Le variant est un type fourre-tout.
Ici ce sont des entiers.
Il faut les déclarer en Long (Double sont des rééels)

+ ce petit comseil de MSDN

Code :

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

1
2
3
4
5
6
    Dim x As Long
    x = 2 000 * 365   ' Erreur : Dépassement de capacité
Afin de contourner le problème, saisissez le nombre comme suit :
 
    Dim x As Long
    x = CLng(2 000) * 365

[dai.kaioh]

Tjs pareil l'erreur sur clé3 avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function Cle_rib(Banque As String, Guichet As String, Compte As String) As Long
Dim IBanque, IGuichet, ICpt, Numero_Compte As Long
Dim cle1, cle2, cle3, clefinale As Long
 
 
 
IBanque = Banque
IGuichet = Guichet
ICpt = Compte
 
 
cle1 = CLng((IBanque * 8) Mod 97)
cle2 = CLng(97 - ((IGuichet * 15) Mod 97))
cle3 = CLng(97 - ((ICpt * 3) Mod 97))
 
 
clefinale = CLng((cle1 + cle2 + cle3) Mod 97)
 
Cle_rib = clefinale
 
End Function

Et si je fais cela

Code :

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

ICpt = clng(Compte)

c'est ici que cela plante car un long contient un numérique sur 10 chiffres et ma variable à un numérique sur 11

[Delphi-ne]

C'est incompréhensible.
Je suis sûr d'avoir gait des CLNG sur des valeurs assez longues.
Là j'ai le même problème

Sinon j'ai essauyé cela et ça marche

Code :

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

1
2
3
4
5
Dim i As Long
Dim j As Double
Dim x As String
 x = "222333444555666"
 j = CDbl(x)

Ce qui m'étonne dans la fonction RIB c'est qu'elle ne traite pas les numéro alphanumériques.
Mais c'est une autre histoire.

[dai.kaioh]

Je ne comprends rien j'ai essayé les changements qu'y m'ont était donné rien a faire j'ai tjs l'erreur de dépassement de capacité.

Mon algo bloque tjs quand je fait le mod avec un nombre à 11 chiffres!!!

[Delphi-ne]

Est-ce que cela bloque toujours au moment de l'affectation ?
Si le MOD bloque on peut toujours faire une division puis une multiplication

[dai.kaioh]

Il bloque seulement au moment du calcul de la 3eme clé, j'ai l'impression que le MOD ne veut pas d'un chiffre aussi grand. C'est stupide un modulo peut se faire avec n'importe quel chiffre

La je pige pas

[Catbull]

Il faut utiliser un Long et non un Double. Mais cela ne resoud pas le problème. Un long est codé sur 4 octets donc le plus grand long que tu puisse avoir est :

2^31-1 = 2 147 483 647

Si tu veux gérer des nombres plus grands il faut mettre en place un mécanisme de gestion de grands nombres...

[dai.kaioh]

OK mais comment?

C vrai que je multiplie un nombre à 11 chiffres par 3

[Delphi-ne]

Il faut utiliser un Long et non un Double

C'est ce que j'ai dit plus haut.
Le problème c'est que lorsque l'on fait un cLNG pour convertir cela bloque.
Je suis pourtant certain de l'avoir déjà fait.

Le double permettait d'éviter ce problème

[dai.kaioh]

Double ou Long cela donne tjs un bug

[Catbull]

Tu risque d'avoir des surprise avec le double. Je ne sais pas comment VB gère les virgules, mais à mon avis la mantise n'est pas fixe...

[Catbull]

En utilisant les propriété du module sur l'addition et la multiplication, tu devrais t'en sortir :

Code :

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

1
2
(a + b) mod c = [(a mod c) + (b mod c)] mod c  
(a * b) mod c = [(a mod c) * (b mod c)] mod c

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Public Function CleRib(Banque As String, Agence As String, Compte As String) As String
    Dim Cle1 As Long
    Dim Cle2 As Long
    Dim Cle3 As Long
    Dim B As Long
    Dim A As Long
    Dim C1 As Long
    Dim C2 As Long
    Dim D As Long
    Dim E As Long
 
    If Len(Banque) <> 5 Then Exit Function
    If Len(Agence) <> 5 Then Exit Function
    If Len(Compte) <> 11 Then Exit Function
 
    B = CLng(Banque)
    A = CLng(Agence)
 
    C1 = CLng(Left(Compte, 6))
    C2 = CLng(Right(Compte, 5))
 
    D = (C1 Mod 97) * (100000 Mod 97) + (C2 Mod 97)
    D = D Mod 97
    E = D * (3 Mod 97)
 
    Cle1 = (B * 8) Mod 97
    Cle2 = 97 - (A * 15) Mod 97
    Cle3 = 97 - E Mod 97
 
    CleRib = Format((Cle1 + Cle2 + Cle3) Mod 97, "00")
End Function

[dai.kaioh]

Ok merci je teste cela de ce pas

[dai.kaioh]

Cela marche impec

J'ai vais rajouter aussi la gestion des alphanumériques

Merci