IBAN berechnen

[Neutral General]

Hallo,

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

[khh]

Zitat von Neutral General:

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 von khh:

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 von Bernhard Geyer:

Zitat von khh:

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