Calcul de l'iban

Commenter

Contenu du snippet

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 / Exemple : 


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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ABL-Online)