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
