BozzoDodo
Messages postés185Date d'inscriptionvendredi 20 décembre 2002StatutMembreDernière intervention10 janvier 2008
-
28 juin 2005 à 09:56
arkosii
Messages postés1Date d'inscriptionmercredi 4 juin 2003StatutMembreDernière intervention14 novembre 2010
-
14 nov. 2010 à 15:32
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
arkosii
Messages postés1Date d'inscriptionmercredi 4 juin 2003StatutMembreDernière intervention14 novembre 2010 14 nov. 2010 à 15:32
J'ai modifié le code syka ainsi :
Public Function Iban(ByVal Cmpt As String) As String
' Calcul de la clé IBAN
Dim CIban As String
Cmpt = Replace(Cmpt, "-", String.Empty) ' Suppression des - dans le compte
CIban = 98 - ((((((Cmpt.Substring(0, 9) Mod 97) & Cmpt.Substring(9, 7)) Mod 97) & Cmpt.Substring(16, 7)) Mod 97 & "1527") Mod 97 & "00") Mod 97
If CIban.Length < 2 Then CIban = "0" & CIban
' Remplacer le "BE" par "FR" si vous êtes en France
Dim c As String = String.Empty
For i As Integer = 0 To Cmpt.Length - 4 Step 4
c += Cmpt.Substring(i, 4) + "-"
Next
Return "FR" & CIban & "-" & c & Cmpt.Substring(20, 3)
End Function
et j'obtiens la bonne valeur EBAN.
cs_syka
Messages postés1Date d'inscriptionvendredi 10 juillet 2009StatutMembreDernière intervention10 juin 2010 10 juin 2010 à 15:40
Modifier comme celà pour la france :
Dim CIban As String
Cmpt = Replace(Cmpt, "-", String.Empty) ' Suppression des - dans le compte
CIban = (98 - ((cmpt.Substring(0, 21) Mod 97 & cmpt.Substring(21, 2) & "1527") Mod 97 & "00") Mod 97)
If CIban.Length < 2 Then CIban = "0" & CIban
Return "FR" & CIban & cmpt
Et au final, ne fonctionne pas.
Il semblerait que le problème est à voir avec la longueur du RIB francais : 23 Numérique, ce qui met une variable de type long en overflow et l'opérateur Mod ne fonctionne donc pas correctement.
rolfdiensten
Messages postés1Date d'inscriptionmercredi 23 janvier 2008StatutMembreDernière intervention 1 juillet 2008 1 juil. 2008 à 14:27
Salut,
Attention pour la France, il faut remplacer "1114" (code pays BE) par "1527" (code pays FR) dans la formule, sinon ca ne marche pas.
J'en profite pour rajouter aussi que l'IBAN français à 23 chiffres après les quatre premiers caractères FRXX .
Merci pour le code :-)
cs_bouksim
Messages postés5Date d'inscriptionmercredi 22 juin 2005StatutMembreDernière intervention 8 juillet 2006 29 juin 2005 à 22:09
salut je me suis un etudiant en developpement informatique , j'etudie vb.net et je me suis tres intresser a ce langage pouvez vous m'envoyez un cours qui est riche en informations? pour que je puisse completer mon projet et le disposer dans ce site....
cs_AbriBus
Messages postés492Date d'inscriptionjeudi 28 août 2003StatutMembreDernière intervention25 avril 20075 28 juin 2005 à 15:34
VOILA... nikel c'est ce que je voulais...
10
AbrIban
ABL-Online
Messages postés62Date d'inscriptiondimanche 16 septembre 2001StatutMembreDernière intervention21 septembre 2006 28 juin 2005 à 15:32
Merci pour vos commentaires
Il y a aucune astuce juste l'application de ce qui est dit ici
Ce document contient les informations nécessaires pour faire la produre de calcule de la clé
Salutations,
Didier Lombet
cs_AbriBus
Messages postés492Date d'inscriptionjeudi 28 août 2003StatutMembreDernière intervention25 avril 20075 28 juin 2005 à 15:01
BozzoDodo> oui, c'est du .NET et la fonction return c'est le truc qui remplace l'affectation de variable a la fin des fonction Vb6 (ENFIN !!) genre en Vb6 ca donne:
Private Function MaFonctionInt()
Dim i As Integer
i = 5
MaFonctionInt = i
End Function
et en Vb.NET ca donne ca:
Private Function MaFonctionInt()
Dim i As Integer
i = 5
return i
End Function
Il y a pas a dire, c'est quand meme BEAUCOUP plus propre (pourtant je suis pas ce que l'on pourrait appeler un adepte de .NET)... je suis en train de me demander... ca marchait pas comme ca en QBasic avant ?
ABL-Online> Excuse j'ai repondu pour toi ;) j'espère que tu m'en veut pas... mais je me suis mis au .NET il y a peu (pour le boulo) et c'est peut etre le seul truc que je trouve de bien ce "return"... fallait que je le dise. Bon sinon, je voulais te demander: ou as tu trouvé l'astuce pour l'IBAN ? je met 10 si tu me dit ou tu as trouvé l'astuce et si ca marche... En tout cas... bravo... 12 lignes... Nikel
AbrIBAN
Sirocooo
Messages postés412Date d'inscriptionmercredi 19 décembre 2001StatutMembreDernière intervention 7 avril 20081 28 juin 2005 à 13:01
merci 10/10
BozzoDodo
Messages postés185Date d'inscriptionvendredi 20 décembre 2002StatutMembreDernière intervention10 janvier 2008 28 juin 2005 à 09:57
Euh... ce n'est pas du vb6! Est-ce spécifique au vb.net?
BozzoDodo
Messages postés185Date d'inscriptionvendredi 20 décembre 2002StatutMembreDernière intervention10 janvier 2008 28 juin 2005 à 09:56
Bonjour,
A quoi sert la fonction return en vb?! C'est la 1ère fois que je vois ce code:
14 nov. 2010 à 15:32
Public Function Iban(ByVal Cmpt As String) As String
' Calcul de la clé IBAN
Dim CIban As String
Cmpt = Replace(Cmpt, "-", String.Empty) ' Suppression des - dans le compte
CIban = 98 - ((((((Cmpt.Substring(0, 9) Mod 97) & Cmpt.Substring(9, 7)) Mod 97) & Cmpt.Substring(16, 7)) Mod 97 & "1527") Mod 97 & "00") Mod 97
If CIban.Length < 2 Then CIban = "0" & CIban
' Remplacer le "BE" par "FR" si vous êtes en France
Dim c As String = String.Empty
For i As Integer = 0 To Cmpt.Length - 4 Step 4
c += Cmpt.Substring(i, 4) + "-"
Next
Return "FR" & CIban & "-" & c & Cmpt.Substring(20, 3)
End Function
et j'obtiens la bonne valeur EBAN.
10 juin 2010 à 15:40
Dim CIban As String
Cmpt = Replace(Cmpt, "-", String.Empty) ' Suppression des - dans le compte
CIban = (98 - ((cmpt.Substring(0, 21) Mod 97 & cmpt.Substring(21, 2) & "1527") Mod 97 & "00") Mod 97)
If CIban.Length < 2 Then CIban = "0" & CIban
Return "FR" & CIban & cmpt
Et au final, ne fonctionne pas.
Il semblerait que le problème est à voir avec la longueur du RIB francais : 23 Numérique, ce qui met une variable de type long en overflow et l'opérateur Mod ne fonctionne donc pas correctement.
1 juil. 2008 à 14:27
Attention pour la France, il faut remplacer "1114" (code pays BE) par "1527" (code pays FR) dans la formule, sinon ca ne marche pas.
J'en profite pour rajouter aussi que l'IBAN français à 23 chiffres après les quatre premiers caractères FRXX .
Merci pour le code :-)
29 juin 2005 à 22:09
28 juin 2005 à 15:34
10
AbrIban
28 juin 2005 à 15:32
Il y a aucune astuce juste l'application de ce qui est dit ici
http://www.ecbs.org/Download/EBS204_V3.2.pdf
Ce document contient les informations nécessaires pour faire la produre de calcule de la clé
Salutations,
Didier Lombet
28 juin 2005 à 15:01
Private Function MaFonctionInt()
Dim i As Integer
i = 5
MaFonctionInt = i
End Function
et en Vb.NET ca donne ca:
Private Function MaFonctionInt()
Dim i As Integer
i = 5
return i
End Function
Il y a pas a dire, c'est quand meme BEAUCOUP plus propre (pourtant je suis pas ce que l'on pourrait appeler un adepte de .NET)... je suis en train de me demander... ca marchait pas comme ca en QBasic avant ?
ABL-Online> Excuse j'ai repondu pour toi ;) j'espère que tu m'en veut pas... mais je me suis mis au .NET il y a peu (pour le boulo) et c'est peut etre le seul truc que je trouve de bien ce "return"... fallait que je le dise. Bon sinon, je voulais te demander: ou as tu trouvé l'astuce pour l'IBAN ? je met 10 si tu me dit ou tu as trouvé l'astuce et si ca marche... En tout cas... bravo... 12 lignes... Nikel
AbrIBAN
28 juin 2005 à 13:01
28 juin 2005 à 09:57
28 juin 2005 à 09:56
A quoi sert la fonction return en vb?! C'est la 1ère fois que je vois ce code:
Return "qqch"
Bonne prog'