IBAN berechnen

[khh]

hallo zusammen,
im Netz gibts ja diverse Links zur Iban-Bberechnung.

Gibt es sowas auch irgendow zur Einbindung in eine Delphi/Lazarus-Routine OHNE Netzverbindung?

Danke Gruss KHH

[Neutral General]

Hallo,

Kannst dir doch eigentlich selbst was bauen oder? Wikipedia bietet da denke ich genug Informationen.

[khh]

Zitat:

Zitat von Neutral General (Beitrag 1061640)

Hallo,

Kannst dir doch eigentlich selbst was bauen oder? Wikipedia bietet da denke ich genug Informationen.

ja, das schon, dachte halt vieleicht gibts das schon, hätte etwas Arbeit erspart :-)

[Bernhard Geyer]

Zitat:

Zitat von khh (Beitrag 1061642)

ja, das schon, dachte halt vieleicht gibts das schon, hätte etwas Arbeit erspart :-)

Du kannst uns dann ja dein Ergebnis zur Verfügung stellen damit andere die es nach dir benötigen es nicht nochmal machen müssen.

[khh]

Zitat:

Zitat von Bernhard Geyer (Beitrag 1061643)

Zitat:

Zitat von khh (Beitrag 1061642)

ja, das schon, dachte halt vieleicht gibts das schon, hätte etwas Arbeit erspart :-)

Du kannst uns dann ja dein Ergebnis zur Verfügung stellen damit andere die es nach dir benötigen es nicht nochmal machen müssen.

jau, das kann ich machen
Gruss KH

[shmia]

Hier hab ich mal die Kernfunktion "Modulo 97" entworfen.

Delphi-Quellcode:

// Berechne Modulo 97 Prüfziffer
// wird für IBAN benötigt
function Modulo97PruefZiffer(const X:string):Integer;
const
   m36:string = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
   i, p : Integer;
begin
   Result := 0;

   for i := 1 to Length(X) do
   begin
      p := Pos(X[i], m36) ;
      if p = 0 then
         raise Exception.CreateFmt('Modulo97PruefZiffer(%s): invalid data', [X]);
      Dec(p);
      if p > 9 then
      begin
         Result := Result * 10 + (p div 10);
         p := p mod 10;
      end;
      Result := Result * 10 + p;
      Result := Result mod 97;
   end;
end;

Und hier noch die Test-Cases.
Die Funktion ist also getestet und dürfte korrekt sein.

Delphi-Quellcode:

Assert(Modulo97PruefZiffer('50000')=45);
Assert(Modulo97PruefZiffer('210501700012345678131468')=1);
Assert(Modulo97PruefZiffer('210501700012345678DE68')=1);

[YogiBär]

In der Anlage sind einige Programmbeispiele zur
Berechnung der IBAN und zur Ermittlung des BIC
aud Datenbank der Deutschen Bundesbank.
Datei BLZ97.zip format EXCEL 97 - 2003.

Erläuterungen zu den Funktionen und Programmen
in der README Datei im Verzeichnis.

:lol:

[squetk]

Also wenn ich das hier lese:

http://www.bundesbank.de/Redaktion/D...an_regeln.html

bin ich mir nicht sicher, ob die Berechnung der IBAN nicht doch komplizierter ist als gedacht.

Zitat:

Da bei einigen Zahlungsdienstleistern bei der Umrechnung von Kontonummern und Bankleitzahlen in IBAN (und BIC) institutsindividuelle Besonderheiten hinsichtlich der Zusammensetzung der nationalen Kontokennung BBAN (Basic Bank Account Number) aus Kontonummer und Bankleitzahl zu beachten sind, haben sich die in der Deutschen Kreditwirtschaft zusammengeschlossenen Spitzenverbände sowie die Deutsche Bundesbank darauf verständigt, alle Zahlungsdienstleister mit Bankleitzahl mit dem Abkommen über die IBAN-Regeln zu verpflichten, die für ihre Zahlungskonten verwendeten Berechnungsmethoden für IBAN (und BIC) aus Kontonummer und Bankleitzahl offenzulegen.

[superflexible]

Vielen Dank an YogiBär! Alle Achtung :=)

Immer noch nützlich auch im Jahr 2021!!

[Harry Stahl]

Bin gerade auf diesen älteren Beitrag gestoßen:

Habe ich das jetzt richtig verstanden, dass die von Yogi-Bär gezeigte Berechnungsmethode zur Generierung der IBAN nicht immer richtig sein muss, weil viele Banken eigene bzw. abweichende Methoden zur Generierung der IBAN verwenden?

Wenn das richtig wäre, dann müsste man also so etwas wie hier (https://www.delphipraxis.net/170138-ibans.html) von Amateurprofi gemacht tun, also alle jeweiligen Prüfziffer-Berechnungsmethoden (139 oder mehr) der Banken implementieren?