PureBoard

Verfasst: **07.08.2013 14:41**

Hallo, ich habe da ein Verwaltungsprogramm für Mitglieder geschrieben und dies läuft nun schon sehr lange stabil. Es wurden bisher über 1000 Daten hinterlegt und alles ist gut. Nun kommt aber der SEPA Krams und ich hänge etwas.

Ums meinem Kunden einfach zu machen, wollte ich ein kleines Tool schreiben, mit dem ich die Kundendaten einlese und die IBAN automatisch generiere. Ist auch alles soweit logisch, aber...

Wie kann ich die 24 stellige Zahl (bestehend aus BLZ + KTO + "131400") anzeigen und dann durch 97 teilen um die Prüfziffer zu ermitteln ?

Ich kann so große Zahlen gar nicht anzeigen lassen. Wer kann mir da helfen ??

Verfasst: **07.08.2013 15:02**

Hier das sollte mit beliebig langen Zahlen und kleinen Dividorn gehen:

Code: Alles auswählen

Procedure.i StringMod(Number.s, Divisor.i)
	Protected Length.i = Len(Str(Divisor))
	Protected MaxLength.i = Len(Number)
	Protected Result.i
	While Length <= MaxLength
		Result = Val(Left(Number, Length)) % Divisor
		Number = RSet(Str(Result), Length) + Mid(Number, Length+1)
		Length + 1
	Wend
	ProcedureReturn Result
EndProcedure

Debug StringMod("358976457823465234783264", 97)

Ist nicht schnell, weil es mit Strings arbeitet, aber funktionsfähig.

Verfasst: **07.08.2013 15:48**

VIELEN DANK ! Hat super geklappt ! Genau das habe ich gesucht !!

PureBoard

SEPA Prüfziffer berechnen

SEPA Prüfziffer berechnen

Re: SEPA Prüfziffer berechnen

Re: SEPA Prüfziffer berechnen