Pour les articles homonymes, voir RIB.
Le BBAN (Basic Bank Account Number) ou RIB (relevé d'identité bancaire en France) ou encore spécimen de chèque (Québec) est une suite de chiffres délivré par la banque et qui indique de manière unique un compte bancaire au niveau national. Il est remis à un débiteur ou un créancier dans le but d'opérer des virements bancaires ou des prélèvements bancaires à partir de ce compte. Ces éléments sont souvent présents sur les chèques (chéquier).
Sommaire
- Remplacement du RIB par l'IBAN
- Composition
- Exemples
- Clef RIB
- Le chéquier
- Vérification du RIB
- Algorithme
- Vérification du RIB en C#
- Vérification du RIB en Java
- Vérification du RIB en Perl
- Vérification du RIB en PHP
- Vérification du RIB en Python
- Vérification du RIB en Ruby
- Vérification du RIB en SQL
- Vérification du RIB en SQL pour Oracle
- Vérification du RIB en VBA
- Vérification du RIB en VB.NET
- Conversion du RIB en IBAN
- Algorithme
- Conversion du RIB en IBAN en C#
- Conversion du RIB en IBAN en Java
- Conversion du RIB en IBAN en Perl
- Conversion du RIB en IBAN en PHP
- Conversion du RIB en IBAN en Python
- Conversion du RIB en IBAN en Ruby
- Conversion du RIB en IBAN en SQL
- Conversion du RIB en IBAN en SQL Server 2008 R2 (Microsoft)
- Conversion du RIB en IBAN en SQL pour Oracle
- Conversion du RIB en IBAN en VBA
- Conversion du RIB en IBAN en VB.NET
- Conversion du RIB en IBAN en JavaScript
- Articles connexes
- Références
Remplacement du RIB par l'IBAN
En France
La notion de RIB a été officiellement abolie avec le passage au format SEPA[1]. Néanmoins ce terme est encore largement utilisée pour désigner l'IBAN (International Bank Account Number) qui permet d'identifier un compte à l'international. Aujourd'hui les comptes bancaires français disposent du relevé d'identité bancaire qui comporte : l'IBAN, le RIB et le BIC. En Europe, l'IBAN est suffisant pour opérer des opérations bancaires SEPA (prélèvement et virement)[2].
En France, l'IBAN est inscrit sur le relevé de compte du compte en question[3].
Législation
La réglementation SEPA entraîne l'impossibilité d'utiliser le RIB pour des opérations bancaires, l'IBAN étant nécessaire et suffisant. Les virements et prélèvements nationaux et européens sont soumis aux mêmes frais et aux mêmes droits et devoirs. Il est également possible d'utiliser l'IBAN d'un autre pays européen dans son propre pays.
Les établissements de crédit (BNP, Société Générale, Crédit Agricole...), les établissements de paiement (Nickel par exemple) ainsi que les établissements de monnaie électronique (Paypal, Treezor...) ont la faculté de délivrer des IBAN.
Composition
| Composition du BBAN | |||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 3 à 12 positions | 8 à 20 positions | ||||||||||||||||||||||||||||||
| IID | BAN | ||||||||||||||||||||||||||||||
- IID : identification de l’établissement financier
- BAN : numéro de compte bancaire
Il n'a pas plus de 30 positions. Chaque pays a la responsabilité de définir le format de son BBAN.
Exemples
- B = code banque (5 chiffres), G = code guichet (5 chiffres), C = numéro de compte (11 chiffres et/ou lettres), K = clé RIB (2 chiffres entre 01 et 97)
- Belgique (12 chiffres) Format : BBBCCCCCCCKK
- B = code banque (3 chiffres), C = numéro de compte (7 chiffres), KK = BBBCCCCCCC modulo 97 (si égal à 0, KK = 97)
- Allemagne (18 chiffres) Format BBBBBBBBCCCCCCCCCC
- B = code banque (8 chiffres), C = numéro de compte (10 chiffres. Si moins, compléter à gauche avec des 0)
- Nota: le numéro de compte allemand (C) contient une clé de contrôle, mais sa position et son calcul diffèrent d'une banque à l'autre. Il existe plus de 100 méthodes différentes de calcul de la clé en Allemagne (source : de:Kontonummer)
Clef RIB
Clé = 97 − ([concaténation de banque, guichet, compte] * 100 modulo 97). Cette clé est proche de celle du numéro de Sécurité sociale français, à la différence qu'il n'est pas centuplé. Si le compte comporte des lettres (banques françaises Banque postale et Crédit lyonnais), remplacer la lettre par son index de 1 à 9 dans l'alphabet (etc.) en laissant un saut entre R et S ().
Calcul de la Clef RIB en Java
public int getRibKey(String rib) { StringBuilder extendedRib = new StringBuilder(rib.length()); for (char currentChar : rib.toCharArray()) { //Works on base 36 int currentCharValue = Character.digit(currentChar, Character.MAX_RADIX); //Convert character to simple digit extendedRib.append(currentCharValue<10?currentCharValue:(currentCharValue + (int) StrictMath.pow(2,(currentCharValue-10)/9))%10); } BigDecimal extendedRibInt = new BigDecimal(extendedRib.toString()); return 97- extendedRibInt.multiply(new BigDecimal(100)).toBigInteger().mod(new BigDecimal(97).toBigInteger()).intValue(); }
Le chéquier
Le relevé d'identité bancaire, sur le carnet de chèque, est composé de :
- l'International Banking Account Number (IBAN), numéro de compte à la norme internationale ISO n° 13616
- le Bank Identification Code (BIC), identifiant de l'établissement financier (la banque) à la norme internationale ISO n° 9362
- le nom et l'adresse du titulaire du compte, en date d'établissement du carnet de chèque (les chèques restant valides après déménagement)
- le nom de l'établissement financier (la banque) et du guichet de domiciliation (l'agence bancaire)
Vérification du RIB
Algorithme
La validité d'un RIB se calcule grâce à la clé de celui-ci.
La première étape consiste à remplacer les lettres présentes par des chiffres pour faciliter le calcul.
| Caractère | Chiffre représentant |
|---|---|
| 0 | 0 |
| 1, A, J | 1 |
| 2, B, K, S | 2 |
| 3, C, L, T | 3 |
| 4, D, M, U | 4 |
| 5, E, N, V | 5 |
| 6, F, O, W | 6 |
| 7, G, P, X | 7 |
| 8, H, Q, Y | 8 |
| 9, I, R, Z | 9 |
Pour faire la transformation, il suffit de se placer en base 36 (base 10 + 26 lettres) et d'appliquer le calcul suivant sur chaque caractère (transformé en nombre currentCharValue) puis de remplacer le sélectionné par le nombre donné :
L'étape suivante (facultative) consiste à décomposer le code et multiplier chaque partie par une constante et en faire la somme.
Enfin, le code est correct si le nombre obtenu (soit par simple concaténation de nos différentes parties, soit par décomposition) est congru à 0 modulo 97.
Vérification du RIB en C#
La fonction check_rib retourne vrai ou faux en fonction de la validité des informations.
private static Regex regex_rib; /// <summary> /// Vérifie la validité d'un RIB /// </summary> /// <param name="rib">Le RIB à vérifier</param> /// <returns>true si le RIB est valide, false sinon</returns> public static bool IsValidRib(string rib) { // Suppression des espaces et tirets string tmp = rib.Replace(" ", "").Replace("-", ""); // Vérification du format BBBBBGGGGGCCCCCCCCCCCKK // B : banque // G : guichet // C : numéro de compte // K : clé RIB if (regex_rib == null) { regex_rib = new Regex(@"(?<B>\d{5})(?<G>\d{5})(?<C>\w{11})(?<K>\d{2})", RegexOptions.Compiled); } Match m = regex_rib.Match(tmp); if (!m.Success) return false; // Extraction des composants string b_s = m.Groups["B"].Value; string g_s = m.Groups["G"].Value; string c_s = m.Groups["C"].Value; string k_s = m.Groups["K"].Value; // Remplacement des lettres par des chiffres dans le numéro de compte StringBuilder sb = new StringBuilder(); foreach (char ch in c_s.ToUpper()) { if (char.IsDigit(ch)) sb.Append(ch); else sb.Append(RibLetterToDigit(ch)); } c_s = sb.ToString(); // Séparation du numéro de compte pour tenir sur 32bits string d_s = c_s.Substring(0, 6); c_s = c_s.Substring(6, 5); // Calcul de la clé RIB int b = int.Parse(b_s); int g = int.Parse(g_s); int d = int.Parse(d_s); int c = int.Parse(c_s); int k = int.Parse(k_s); int calculatedKey = 97 - ((89 * b + 15 * g + 76 * d + 3 * c) % 97); return (k == calculatedKey); } /// <summary> /// Convertit une lettre d'un RIB en un chiffre selon la table suivante : /// 1 2 3 4 5 6 7 8 9 /// A B C D E F G H I /// J K L M N O P Q R /// _ S T U V W X Y Z /// </summary> /// <param name="letter">La lettre à convertir</param> /// <returns>Le chiffre de remplacement</returns> public static char RibLetterToDigit(char letter) { if (letter >= 'A' && letter <= 'I') { return (char)(letter - 'A' + '1'); } else if (letter >= 'J' && letter <= 'R') { return (char)(letter - 'J' + '1'); } else if (letter >= 'S' && letter <= 'Z') { return (char)(letter - 'S' + '2'); } else throw new ArgumentOutOfRangeException("Le caractère à convertir doit être une lettre majuscule dans la plage A-Z"); }
Vérification du RIB en Java
import java.math.BigDecimal; public class Validation{ public boolean checkRib(String rib) { StringBuilder extendedRib = new StringBuilder(rib.length()); for (char currentChar : rib.toCharArray()) { int intValue; if ('0' <= currentChar && currentChar <= '9') { intValue = currentChar - '0'; } else if ('A' <= currentChar && currentChar <= 'I') { intValue = currentChar - 'A' + 1; } else if ('J' <= currentChar && currentChar <= 'R') { intValue = currentChar - 'J' + 1; } else if ('S' <= currentChar && currentChar <= 'Z') { intValue = currentChar - 'S' + 2; } else { return false; } extendedRib.append(intValue); } return new BigDecimal(extendedRib.toString()).remainder(new BigDecimal(97)).intValue() == 0; } }
Vérification du RIB en Perl
Avec :
- $cbanque : code de la banque
- $cguichet : code du guichet
- $nocompte : numéro de compte
- $clerib : clé rib
use Math::BigInt; my %letter_substitution = ("A" => 1, "B" => 2, "C" => 3, "D" => 4, "E" => 5, "F" => 6, "G" => 7, "H" => 8, "I" => 9, "J" => 1, "K" => 2, "L" => 3, "M" => 4, "N" => 5, "O" => 6, "P" => 7, "Q" => 8, "R" => 9, "S" => 2, "T" => 3, "U" => 4, "V" => 5, "W" => 6, "X" => 7, "Y" => 8, "Z" => 9); my $tabcompte = ""; my $len = length($nocompte); return 0 if ($len != 11); for (my $i = 0; $i < $len; $i++) { my $car = substr($nocompte, $i, 1); if ($car !~ m/^\d$/) { my $b = $letter_substitution{uc($car)}; my $c = ( $b + 2**(($b - 10)/9) ) % 10; $tabcompte .= $c; } else { $tabcompte .= $car; } } my $int = "$cbanque$cguichet$tabcompte$clerib"; return (length($int) >= 21 && Math::BigInt->new($int)->bmod(97) == 0) ? 1 : 0;
Vérification du RIB en PHP
La fonction check_rib retourne vrai ou faux en fonction de la validité des informations.
function check_rib($cbanque, $cguichet, $nocompte, $clerib) { $tabcompte = ""; $len = strlen($nocompte); if ($len != 11) { return false; } for ($i = 0; $i < $len; $i++) { $car = substr($nocompte, $i, 1); if (!is_numeric($car)) { $c = ord($car) - (ord('A') - 1); $b = (($c + pow ( 2, ($c - 10) / 9 )) % 10) + (($c > 18 && $c < 25) ? 1 : 0); $tabcompte .= $b; } else { $tabcompte .= $car; } } $int = $cbanque . $cguichet . $tabcompte . $clerib; return (strlen($int) >= 21 && bcmod($int, 97) == 0); }
Vérification du RIB en Python
def check_rib(rib): if len(rib) != 23: return False _RIB_MAP = { 'A':'1', 'B':'2', 'C':'3', 'D':'4', 'E':'5', 'F':'6', 'G':'7', 'H':'8', 'I':'9', 'J':'1', 'K':'2', 'L':'3', 'M':'4', 'N':'5', 'O':'6', 'P':'7', 'Q':'8', 'R':'9', 'S':'2', 'T':'3', 'U':'4', 'V':'5', 'W':'6', 'X':'7', 'Y':'8', 'Z':'9', } values = "".join(_RIB_MAP.get(char.upper(), char) for char in rib) if not values.isdigit(): return False bankcode = int(values[:5]) counter = int(values[5:10]) account = int(values[10:21]) key = int(values[21:]) return (bankcode*89 + counter*15 + account*3 + key) % 97 == 0
Vérification du RIB en Ruby
Avec :
- rib : le RIB complet sans espace à passer à la méthode.
def rib?(rib) bank, office, account, key = rib.match(/^(\d{5})(\d{5})([[:alnum:]]{11})(\d{2})$/).captures account = account.each_char.inject('') do |sum, char| char = char.to_i 36 sum += ((char + 2 ** ((char - 10)/9)).to_i % 10).to_s end result = bank + office + account + key result.size >= 21 && result.to_i % 97 == 0 rescue # Le RIB n’est pas valide false end
Vérification du RIB en SQL
Cette vérification permet de valider la saisie de l'utilisateur, qui renseigne à l'exécution de la requête SQL les codes Banque, Guichet et numéro de compte, ou de lui demander une nouvelle saisie.
select Saisie.* ,97-mod(Banque*89+Guichet*15+Compte*3,97) CleRIB from (select substr(lpad(&Banque,5,'0'),1,5) Banque ,substr(lpad(&Guichet,5,'0'),1,5) Guichet ,translate(upper(substr(lpad('&Compte',11,'0'),1,11)) ,'ABCDEFGHIJKLMNOPQRSTUVWXYZ' , 12345678912345678923456789 ) Compte from dual ) Saisie;
Vérification du RIB en SQL pour Oracle
Cette vérification permet de vérifier un grand nombre de RIB, dans une table RIB_payment
CREATE TABLE ( rib_id NUMBER(10) , rib_banque VARCHAR2(12) CONSTRAINT rib_banque_nn_payment NOT NULL NOT NULL , rib_guichet VARCHAR2(12) CONSTRAINT rib_guichet_nn_payment NOT NULL , rib_compte VARCHAR2(20) CONSTRAINT rib_compte_nn_payment NOT NULL , rib_cle VARCHAR2(3) , rib_saisie_date DATE DEFAULT SYSDATE CONSTRAINT rib_saisie_date_nn_payment NOT NULL , person_id VARCHAR2(10)/*titulaire, personne morale ou physique*/ CONSTRAINT rib_person_id_nn_payment NOT NULL , CONSTRAINT rib_person_id_uk_payment UNIQUE (person_id) )
saisie au préalable, et en relation avec une table des personnes (personnes physiques ou personnes morales).
SELECT IBAN, MOD( REPLACE(REPLACE(REPLACE(REPLACE(REPLACE( REPLACE(REPLACE(REPLACE(REPLACE(REPLACE( REPLACE(REPLACE(REPLACE(REPLACE(REPLACE( REPLACE(REPLACE(REPLACE(REPLACE(REPLACE( REPLACE(REPLACE(REPLACE(REPLACE(REPLACE( REPLACE( REPLACE( substr(IBAN,5,length(IBAN))||substr(IBAN,1,4) ,'A','10'),'B','11'),'C','12'),'D','13'),'E','14') ,'F','15'),'G','16'),'H','17'),'I','18'),'J','19') ,'K','20'),'L','21'),'M','22'),'N','23'),'O','24') ,'P','25'),'Q','26'),'R','27'),'S','28'),'T','29') ,'U','30'),'V','31'),'W','32'),'X','33'),'Y','34') ,'Z','35') ,' ','') ,97) IBAN_modulo FROM COMPTE
La requête contrôle le IBAN (on peut facilement le construire à partir du RIB).
Vérification du RIB en VBA
Ce code fonctionne sous Excel, l'abréviation « VBE » étant la contraction de VBA pour Excel.
Ces fonctions permettent de vérifier la validité d'un RIB
Function Mod97(Numero As String) As Integer ' Calcule le modulo 97 du numéro donné Dim Nro As String Dim a As Variant, b As Variant, c As Variant, d As Variant, e As Variant, div97 As Variant Nro = Numero a = 0 b = 0 c = 0 e = Right(Nro, 6) d = Mid(Nro, Len(Nro) - 11, 6) Select Case Len(Nro) Case 13 To 20 c = CDbl(Mid(Nro, 1, Len(Nro) - 12)) Case 21 To 28 c = CDbl(Mid(Nro, Len(Nro) - 19, 8)) If Len(Nro) <> 20 Then b = CDbl(Mid(Nro, 1, Len(Nro) - 20)) Case 29 To 38 c = CDbl(Mid(Nro, Len(Nro) - 19, 8)) b = CDbl(Mid(Nro, Len(Nro) - 27, 8)) a = CDbl(Mid(Nro, 1, Len(Nro) - 28)) Case Else Mod97 = 0 Exit Function End Select div97 = Int((a * 93 + b * 73 + c * 50 + d * 27 + e Mod 97) / 97) Mod97 = (a * 93 + b * 73 + c * 50 + d * 27 + e Mod 97) - div97 * 97 End Function Function ControleRib(cbanque As String, cguichet As String, nocompte As String, clerib As String) Const transforme = "12345678912345678923456789"> Dim tabcompte As String, lg As Long, i As Long, car As String, c As Integer, rib_int As String tabcompte = "" lg = Len(nocompte) If lg <> 11 Then ControleRib = False Else For i = 1 To lg car = Mid(nocompte, i, 1) If Not IsNumeric(car) Then c = asc(car) - (asc("A") - 1) tabcompte = tabcompte & Mid(transforme, c, 1) Else tabcompte = tabcompte & car End If Next i rib_int = cbanque & cguichet & tabcompte & clerib ControleRib = (Len(rib_int) >= 21) And (Mod97(rib_int) = 0) End If End Function
Il faut insérer ces deux fonctions dans un module dans visual basic editor (EXCEL ou ACCESS) et faire l'appel depuis :
1. Excel :
=ControleRib(A1, A2, A3, A4)
Où A1, A2, A3 et A4 doivent contenir les 4 valeurs composant le RIB (RIB_Banque, RIB_Guichet, RIB_Compte, RIB_Cle)
2. Access :
If ControleRib(RIB_Banque, RIB_Guichet, RIB_Compte, RIB_Cle) Then TESTRIB = "RIB CORRECT" MsgBox " RIB EST CORRECT", vbInformation, "VERIF RIB" Else TESTRIB = "RIB ERRONE" MsgBox " LE RIB EST ERRONE", vbCritical, "VERIF RIB" End If
Où RIB_Banque, RIB_Guichet, RIB_Compte, RIB_Cle sont les noms des zones de texte qui doivent contenir le RIB et TESTRIB est le nom de la zone de texte qui devra afficher le résultat du test.
Vérification du RIB en VB.NET
Private Function textetochiffre(ByVal numero As String) As Integer If IsNumeric(numero) = False Then numero = Asc(numero) - 55 End If Return Math.Floor((numero + Math.Pow(2, (numero - 10) / 9)) Mod 10) End Function Private Function verifierrib(ByVal plainrib As String) Dim rib As String = "" For i = 0 To plainrib.Count - 1 rib = rib & textetochiffre(plainrib.Substring(i, 1)) Next Dim banknote As String = rib.Substring(0, 5) Dim guichet As String = rib.Substring(5, 5) Dim compte As String = rib.Substring(10, 11) Dim clerib As String = rib.Substring(21, 2) Dim result As Integer = (banknote * 89 + guichet * 15 + compte * 3 + clerib) Mod 97 If result = 0 Then Return True Else Return False End If End Function
Conversion du RIB en IBAN
Algorithme
- Créer un IBAN temporaire, composé du code du pays : FR pour la France, suivi de " 00 " et du " code RIB "
- Déplacer les 4 premiers caractères de l’IBAN vers la droite du numéro.
- Convertir les lettres en chiffres, selon le principe "A" vaut "10" ... "Z" vaut "35".
- Calculer le modulo 97 et retrancher le reste de 98. Si le résultat comporte un seul chiffre, insérer un zéro devant.
Insérer le résultat ainsi obtenu à la position 3 de l’IBAN temporaire créé dans l’étape 1.
Conversion du RIB en IBAN en C#
public static string GetIban(string codebanque, string codeGuichet, string numerocompte, string cle) { const string alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; var tmp = (codebanque + codeGuichet + numerocompte + cle + "FR00">).ToUpper(); foreach (var c in tmp.Where(char.IsLetter)) { tmp = tmp.Replace(c.ToString(CultureInfo.InvariantCulture), (alphabet.IndexOf(c) + 10).ToString(CultureInfo.InvariantCulture)); } var ibanKey = (98 - (System.Numerics.BigInteger.Parse(tmp) % 97)).ToString(CultureInfo.InvariantCulture); return "FR" + ((ibanKey.Length == 1) ? "0"> : "") + ibanKey + codebanque + codeGuichet + numerocompte + cle; }
Conversion du RIB en IBAN en Java
public static String getIBAN(String codebanque, String codeGuichet, String numerocompte, String cle) { String alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; String tmp = codebanque + codeGuichet + numerocompte + cle + "FR00">; tmp = tmp.toUpperCase(); for (char c : tmp.toCharArray()) { if (Character.isLetter(c)) { tmp = tmp .replaceAll(String.valueOf(c), String.valueOf(alphabet.indexOf(c) + 10)); } } String ibanKey = String.valueOf(new BigDecimal(98).subtract(new BigDecimal(tmp).remainder((new BigDecimal(97))))); if (ibanKey.length() == 1) { ibanKey = "0"> + ibanKey; } return "FR" + ibanKey + codebanque + codeGuichet + numerocompte + cle; }
Conversion du RIB en IBAN en Perl
use bigint; sub rib_to_iban { my ($rib) = @_; my @letter = ('0'..'9','A'..'Z'); my $iban = ""; foreach my $char(split(//,"${rib}FR00">)) { my ($index) = grep { $letter[$_] eq $char } (0 .. @letter-1); $iban .= $index; } my $key = 98 - ($iban % 97); return sprintf("FR%.2d%s" ,$key, $rib); }
Conversion du RIB en IBAN en PHP
function Rib2Iban($codebanque,$codeguichet,$numerocompte,$cle){ $charConversion = array("A" => "10">,"B" => "11">,"C" => "12">,"D" => "13">,"E" => "14">,"F" => "15">,"G" => "16">,"H" => "17">, "I" => "18">,"J" => "19">,"K" => "20">,"L" => "21">,"M" => "22">,"N" => "23">,"O" => "24">,"P" => "25">,"Q" => "26">, "R" => "27">,"S" => "28">,"T" => "29">,"U" => "30">,"V" => "31">,"W" => "32">,"X" => "33">,"Y" => "34">,"Z" => "35">); $tmpiban = strtr(strtoupper($codebanque.$codeguichet.$numerocompte.$cle)."FR00">,$charConversion); // Soustraction du modulo 97 de l'IBAN temporaire à 98 $cleiban = strval(98 - intval(bcmod($tmpiban,"97">))); if (strlen($cleiban) == 1) $cleiban = "0">.$cleiban; return "FR".$cleiban.$codebanque.$codeguichet.$numerocompte.$cle; }
Conversion du RIB en IBAN en Python
Avec :
- rib : le RIB complet sans espace à passer à la méthode.
def rib_to_iban(rib): tmp_iban = int("".join(str(int(c,36)) for c in rib+"FR00">)) key = 98 - (tmp_iban % 97) return "FR%.2d%s" % (key, rib)
Conversion du RIB en IBAN en Ruby
Avec :
- rib : le RIB complet sans espace à passer à la méthode.
def rib_to_iban(rib) tmp_iban = "#{rib}FR00">.each_char.map { |char| char.to_i(36).to_s }.join.to_i key = 98 - (tmp_iban % 97) "FR%.2d%s" % [key, rib] end
Conversion du RIB en IBAN en SQL
Conversion du RIB en IBAN en SQL Server 2008 R2 (Microsoft)
-- Creates an IBAN (International Bank Account Number) from a BBAN (Basic Bank Account Number) and BIC (Bank Identifier Code) -- SQL 2008 R2 -- Tested on several SEPA countries CREATE FUNCTION [dbo].[SQL_F_BBAN_IBAN] (@bban varchar(30), @bic varchar(11)) RETURNS varchar(40) AS -- Creates an IBAN (International Bank Account Number) from a BBAN (Basic Bank Account Number) and BIC (Bank Identifier Code) -- In :BBAN, BIC -- Returns :IBAN BEGIN declare @bbanwk varchar(60), @country char(2), @bbannbp int, @bbanp varchar(9), @pos smallint, @mod int, @i smallint, @keyiban char(2), @iban varchar(40) -- Get the country code from the BIC set @country = substring(@bic, 5, 2) -- Place it at the end of BBAN set @bbanwk = @bban + @country + '00' -- Replace any letters with their numeric value (code ASCII - 55) while isnumeric(@bbanwk+'e0') = 0 BEGIN set @pos = (select patindex('%[^0-9]%',@bbanwk)) set @bbanwk = (select replace(@bbanwk,substring(@bbanwk,@pos,1),ascii(substring(@bbanwk,@pos,1))-55)) END -- Split the BBAN into parts of 9 numbers max (because too long for SQL data type INT) and calculate MOD 97 of each part -- suppose to add 1 iteration each 4 iteration, so init @i = 0 and not 1 for some case. set @bbannbp = ceiling(len(@bbanwk) / 9.0) set @pos = 10 set @i = 0 set @bbanp = left(@bbanwk, 9) while @i <= @bbannbp BEGIN set @mod = cast(@bbanp as int) % 97 -- Put the result at the beginning of the next group set @bbanp = cast(@mod as varchar) + substring(@bbanwk, @pos, 7) set @i = @i + 1 set @pos = @pos + 7 END -- IBAN key 2 characters set @keyiban = right('00' + cast((98 - @mod) as varchar), 2) set @iban = @country + @keyiban + @bban RETURN @iban END GO
Conversion du RIB en IBAN en SQL pour Oracle
FUNCTION SO_F_RIB_IBAN(pi_va_rib IN VARCHAR2) RETURN VARCHAR2 IS l_i_loop INTEGER; l_va_return VARCHAR2(40); l_n_clee INTEGER; BEGIN l_va_return := UPPER(pi_va_rib) || 'FR00'; -- Transformation de A-Z en 10-35 FOR l_i_loop IN 0 .. 25 LOOP l_va_return := REPLACE(l_va_return, CHR(65+l_i_loop), (10+l_i_loop)); END LOOP; -- Soustraction du modulo 97 de l'IBAN temporaire à 98 l_n_clee := (98 - MOD(l_va_return,97)); -- Retourne l'iban RETURN 'FR' || TRIM(TO_CHAR(l_n_clee, '00')) || UPPER(pi_va_rib); END SO_F_RIB_IBAN;
Conversion du RIB en IBAN en VBA
Ce code fonctionne sous Excel, l'abréviation « VBE » étant la contraction de VBA pour Excel.
Conversion du RIB en IBAN en VB.NET
Public Function GetIBAN(rib As String) As String rib = rib.Replace(" ", "") Dim tmpIBAN As New StringBuilder() For Each c As Char In (rib + "FR00">).ToUpper() Dim v As Integer = Asc(c) + If(c >= "A"c, -Asc("A") + 10, -Asc("0">)) tmpIBAN.Append(v) Next Dim tmpIBANString As String = tmpIBAN.ToString() Dim checksum As Integer = 0 For Each c In tmpIBANString checksum *= 10 checksum += Integer.Parse(c) checksum = checksum Mod 97 Next Dim ibanKey As String = (98 - checksum).ToString() Return "FR" + Right("0"> & ibanKey, 2) + rib End Function
Conversion du RIB en IBAN en JavaScript
function GetIban(codeBanque, codeGuichet, numCompte, cleRib) { var alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; var tmp = ""; tmp = "" + String(codeBanque) + String(codeGuichet) + String(numCompte) + String(cleRib) + "FR00">; tmp = tmp.toUpperCase(); tmp = tmp.split(""); for (var i = 0; i < tmp.length; i++) { if (alphabet.indexOf(tmp[i]) != -1) { tmp[i] = String(alphabet.indexOf(tmp[i]) + 10); } } tmp = tmp.join(""); var moduloRemainder = parseInt(tmp % 97, 10); var ibanKey = (98 - moduloRemainder).toString(); if (ibanKey.length == 1) { ibanKey = "0"> + ibanKey; } return "FR" + ibanKey + codeBanque + codeGuichet + numCompte + cleRib; };