Ergebnis der Suchanfrage

• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: Prüfziffer für IBAN berechnen

   
    by sx2008, 13. Sep 2013
  Bei der Erzeugung von IBANs ist etwas wichtiger als alles Andere: Korrektheit.
  Das Ding muss richtig rechnen; das hat oberste Priorität.
  Nichts ist schlimmer als wenn in einer Produktivumgebung tausende falsche IBANs verschickt werden. :oops:
  
  Daher muss man so vorgehen:
  Schritt 1:
  Testdaten besorgen und eine Testumgebung für die IBAN-Funktion aufbauen.
  Man sollte mindestens 5 versch....
• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: Prüfziffer für IBAN berechnen

   
    by sx2008, 12. Sep 2013
  Dieses "csmax" kann man sich schenken.
  Bei der Modulo-Arithmetik rechnet man einfach nach jeder Operation mit mod 97:
  
  FUNCTION CreateGermanIBAN(Const BankCode,Account:String):String;
  var cs, i,cc:integer; s:string;
  begin
  if (Length(BankCode)<>8) or (Length(Account)<>10) then Exit('');
  s:=BankCode+Account+'131400'; // 131400 = 'DE00'
  cs:=0;
  for i:=1 to Length(s) do begin