IBAN Prüfsumme

[Mathematiker]

Hallo,
folgende Funktion ermöglicht die Konstruktion einer deutschen IBAN.

Delphi-Quellcode:

//BankCode ... Bankleitzahl
//Account ... Kontonummer
FUNCTION CreateGermanIBAN(Const BankCode,Account:String):String;
var cs, i,cc:integer; s:string;
begin
    if (Length(BankCode)<>8) or (Length(Account)<>10) then
    begin
      result:='';
      Exit;
    end;
    s:=BankCode+Account+'131400'; // 131400 = 'DE00'
    cs:=0;
    for i:=1 to Length(s) do begin
       cs:=(cs*10+Ord(s[i])-Ord('0')) mod 97;
    end;
    cc:=98-cs;
    if cc<2 then inc(cc,97); // 00-->97, 01--> 98
    result:='DE00';
    result[3]:=Chr(cc div 10+Ord('0'));
    result[4]:=Chr(cc mod 10+Ord('0'));
    result:=result+BankCode+Account;
end;

Ist Account kürzer als 10 Zeichen, müssen führende Nullen angefügt werden.

Beste Grüße
Mathematiker

[dataspider]

Zitat von Mathematiker:

Ist Account kürzer als 10 Zeichen, müssen führende Nullen angefügt werden.

Nur am Rande...
Die häufigste Abweichung bei den Prüfziffer - Verfahren

13 - Commerzbank, SEB...
63 Deutsche Bank...
C7 Norisbank

Hier sind 7 - stellige Kontonummern Unterkonten und erhalten nur eine führende Null und 2 am Ende.

Die anderen 1000 Regeln spar ich mir, da hat sich ja schon jemand hier im Forum die Arbeit gemacht!

Frank

[arnof]

Zitat von dataspider:

Zitat von Mathematiker:

Ist Account kürzer als 10 Zeichen, müssen führende Nullen angefügt werden.

Nur am Rande...
Die häufigste Abweichung bei den Prüfziffer - Verfahren

13 - Commerzbank, SEB...
63 Deutsche Bank...
C7 Norisbank

Hier sind 7 - stellige Kontonummern Unterkonten und erhalten nur eine führende Null und 2 am Ende.

Die anderen 1000 Regeln spar ich mir, da hat sich ja schon jemand hier im Forum die Arbeit gemacht!

Frank

Ja, wenn man die Werbung der Bundesbank zur SEPA Umstellung und zur IBAN Berechnung sieht, dann kann ich auch nur noch lächeln