Ist ja quasi Ersatzgolfen ;-) Gib mal ein Beispiel, bei dem es nicht funktioniert. Ist einfacher dann den Fehler zu finden.
Gru� Johann -----Urspr�ngliche Nachricht----- Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Im Auftrag von Thomas Bandt Gesendet: Montag, 29. September 2003 15:13 An: [EMAIL PROTECTED] Betreff: [Coffeehouse] OT: IBAN Hello, sagt mal hat sich von euch vielleicht schon jemand mit der IBAN besch�ftigt? (http://www.kbcbank.de/sites/multimed/iban002.htm) Mein Problem: ich muss diese Dinger aus L�nder-K�rzel, BLZ und Kontonummer selbst erstellen, d.h. vor allem die Pr�fziffer er- mitteln. Auf obiges Beispiel funzt das wunderpr�chtig, nur auf s�mtliche anderen Nummern nicht :-( Hoffe das da irgendwie ne L�sung "rumfliegt" oder jemand den Fehler findet. Der Code: ------------------------------------------------------------------- Function GetPruefziffer(a) Dim l, r, x, i, p l = Len(a) r = l mod 9 x = ((l-r)\9) For i = 1 To x If i = 1 Then p = Left(a,9) mod 97 Else r = r + Len(p) p = (p & Mid(a,(((i-1)*9)+1),(9-Len(p)))) mod 97 End If Next If r <> 0 Then If (Len(p)+r) > 9 Then GetPruefziffer = GetPruefziffer((p & Right(a,r))) Else p = (p & Right(a,r)) mod 97 End If End If GetPruefziffer = 98-p End Function ------------------------------------------------------------------- Gru�, Thomas P.s.: Das alles �brigens nur, weil VBS nicht in der Lage ist zb. "200800000970375700131400 mod 97" zu rechnen............ ;-/ _______________________________________________ Coffeehouse mailing list [EMAIL PROTECTED] http://www.glengamoi.com/mailman/listinfo/coffeehouse _______________________________________________ Coffeehouse mailing list [EMAIL PROTECTED] http://www.glengamoi.com/mailman/listinfo/coffeehouse
