CALCUL DE L'IBAN calcul, iban, clé, Source N°32359

Information sur la source

Catégorie :Divers

Classé sous : calcul, iban, clé Niveau : Initié Date de création : 27/06/2005 Date de mise à jour : 27/06/2005 14:45:50 Vu : 13 628

Auteur : ABL-Online

Site perso

Ecrire un message privé

Note :

7,50 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (8)

Ajouter un commentaire et/ou une note

Description

Bonjour,

J'ai vu une personne qui avait mis son soft qui calculais la clé IBAN sur le site et n'as pas voulut donner la formule qui permettait de calculer cette clé.

Je trouve ce genre de pratique très déplorable, le but de ce site est d'apprendre et non de gardé pour soit les ses acquis

C'est donc avec la plus grande joie que je vous donne ici ma méthode pour avoir le compte au format international IBAN

Cette fonction vous retourne donc votre numéro de compte au format IBAN

Source

Version C# de ce code disponible !

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, 10) Mod 97 & Cmpt.Substring(10, 2) & "1114") Mod 97 & "00") Mod 97)
If CIban.Length < 2 Then CIban = "0" & CIban
' Remplacer le "BE" par "FR" si vous êtes en France
Return "BE" & CIban & Cmpt
End Function

    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, 10) Mod 97 & Cmpt.Substring(10, 2) & "1114") Mod 97 & "00") Mod 97)
        If CIban.Length < 2 Then CIban = "0" & CIban
        
        ' Remplacer le "BE" par "FR" si vous êtes en France
        Return "BE" & CIban & Cmpt

    End Function

Conclusion

Pour la france cette ligne sera certainement à modifier car je ne sais pas le nombre de chiffre qu'il y a dans un compte bancaire :

CIban = (98 - ((Cmpt.Substring(0, 10) Mod 97 & Cmpt.Substring(10, 2) & "1114") Mod 97 & "00") Mod 97)

Cmpt.Substring(0, 10) = Longeur de la chaine moin 2 caractères
Cmpt.Substring(10, 2) = Reprise des deux dernier chiffre de la chaine

Historique

27 juin 2005 14:45:50 :: Ajout de la note pour la france

Sources du même auteur

Toutes les sources de ABL-Online

Sources de la même categorie

Toutes les sources de la catégorie Divers

Sources en rapport avec celle ci

Commentaires

Commentaire de BozzoDodo le 28/06/2005 09:56:20

Bonjour,
A quoi sert la fonction return en vb?! C'est la 1ère fois que je vois ce code:

Return "qqch"

Bonne prog'
Commentaire de BozzoDodo le 28/06/2005 09:57:15

Euh... ce n'est pas du vb6! Est-ce spécifique au vb.net?
Commentaire de Sirocooo le 28/06/2005 13:01:11

merci 10/10
Commentaire de AbriBus le 28/06/2005 15:01:31

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
Commentaire de ABL-Online le 28/06/2005 15:32:59

Merci pour vos commentaires

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
Commentaire de AbriBus le 28/06/2005 15:34:45

VOILA... nikel c'est ce que je voulais...
10

AbrIban
Commentaire de bouksim le 29/06/2005 22:09:18

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....
Commentaire de rolfdiensten le 01/07/2008 14:27:38

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 :-)