begin process at 2012 02 13 02:51:48
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Divers

 > CALCUL DE L'IBAN

CALCUL DE L'IBAN


 Information sur la source

Note :
7,5 / 10 - par 4 personnes
7,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Source .NET ( DotNet ) 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 :27 869
Auteur : ABL-Online

Ecrire un message privé
Site perso
Commentaire sur cette source (10)
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

  • 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

Source avec Zip Source avec une capture Source .NET (Dotnet) GÉNÉRATION DE CODE BARRE 3 DE 9 (CODE39)
Source .NET (Dotnet) LISTER LES SITES INTERNET CONFIGURER DANS IIS AVEC ADSI
Source avec Zip Source avec une capture Source .NET (Dotnet) DLL COMBOSENSE , LE COMBOBOX À SAISIE SEMI-AUTOMATIQUE PARFA...
Source avec une capture Source .NET (Dotnet) RETROUVER LES FONCTIONNALITÉS DE VB6
Source .NET (Dotnet) DÉPLACEMENT D'UNE FORM N'AYANT PAS DE BARRE TITRE
Toutes les sources de ABL-Online

 Sources de la même categorie

Source avec Zip TEXTBOX EN NUMÉRIQUE par 320C
Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo
Toutes les sources de la catégorie Divers

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) WIFIKEYVIEWER : LISTE DES PROFILES WIFI AVEC LEURS CLÉS/MOTS... par ShareVB
Source avec Zip Source avec une capture CALCUL DE PLACEMENT OU DE PRET - MENSUALITES - MONTANT - D... par lexsty
Source avec Zip Source .NET (Dotnet) NOMBRES PRIMORDIAUX par alpha5
Source avec Zip Source avec une capture ECBS CALCUL CLÉ RIB ET IBAN par NeO78
Source avec Zip Source avec une capture GESTION RIB BANCAIRE (POUR MADFLO QUESTION FORUM AIDE) par pcpunch

Commentaires et avis

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

Commentaire de syka le 10/06/2010 15:40:31

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.

Commentaire de arkosii le 14/11/2010 15:32:46

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.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

calcul de la clé de contrôle du numero de sécurité sociale [ par sanaa077 ] calcul de la clé de contrôle Message : merci "UZMENAZ" d'avoir détaillé le calcul de la clé de contrôle car je n'avais pas réussi à ouvrir la source. calcul de la clé de contrôle du numero de sécurité sociale [ par sanaa077 ] calcul de la clé de contrôle Message : merci "UZMENAZ" d'avoir détaillé le calcul de la clé de contrôle car je n'avais pas réussi à ouvrir la source. calcul de la clé de contrôle du numero de sécurité sociale [ par sanaa077 ] Problème arrondi calcul validité IBAN [ par fusuke ] Bonjour à tous, ôh mes maîtres !!!! Je voudrais calculer la validité d'un IBAN.Pour celà, je me fie à un mode de calcul donné dans Wikipédia pour l Calcul clé de contrôle d'un RIO [ par dsigmoun ] Bonjour à tous,Je cherche à vérifier la conformité des RIO Mobile (Relevé Identité Opérateur).J'ai trouvé le mode calcul pour la vérification des cart Calcul de l'enveloppe convexe d'un nuage de points en C++ [ par fantome2040 ] Bonjour Comme il est ecrit dans le sujet je cherche un programme en C++ qui me permetrai de calculer une enveloppe convexe d'un nuage de point. Je vie Calcul durée [ par sebcbien67 ] Bonjour à tous, Voilà je souhaite établir un calcul entre une durée (= cellule Temps) fois celle de la cellule Type Temps dans un tableau Excel 2002 S Problème de calcul [ par Sinsitrus ] Salut !J'ai un problème sur ma facturation, le calcul de l'AIRSIJe devrais plutôt avoir 295 dans l'AIRSI< calcul aire d'un cône tronqué [ par jpcaramel ] Bonjour à tous.Je viens vers vous car je suis nullement qualifié dans le domaine du calcul.Jai besoin de connaitre soit une formule à la porté du novi calcul de l'age [ par petchy ] bonsoirj'ai se code pour convertir une date en age,elle fonctionne super bienPrivateSub TextBox1_TextChanged(ByVal sender <font


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Renewable Energy is Within Reach
Photo Sparkling lagoon in the south pacific, Moorea, French Polynesia 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,529 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)