ahoi, das funzt einwandfrei. merci beaucoup - du hast mir den feierabend gerettet ;-)
thomas > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of Johann Engbers > Sent: Monday, September 29, 2003 3:59 PM > To: [EMAIL PROTECTED] > Subject: AW: [Coffeehouse] OT: IBAN > > > Hallo, > > function mod97 (h) > DO WHILE len(h)>9 > h= left(h,9) mod 97 & right(h,len(h)-9) > LOOP > mod97= h mod 97 > end function > > Die Funktion kann auch "200800000970375700131400 mod 97" rechnen > > Gru� > Johann > > The sum of the intelligence on the planet is a constant; > the population is growing. > > -----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 > _______________________________________________ Coffeehouse mailing list [EMAIL PROTECTED] http://www.glengamoi.com/mailman/listinfo/coffeehouse
