Menü

Mail Listen Archiv | Code Startseite | Anzeige aller Code Fragmente 

4D Code Library

4D Support Center - 4D Code Beispiel zum Thema:

IBAN Gültigkeits-Check

 

Erfaßt von: Jan Freidank (ACS GmbH) am 06.03.2007 ; -
Letzte Änderung: 07.03.2007

 

Kurzbeschriebung: Prüft eine angegebene IBAN, ob diese korrekt ist.;;

---

Beschreibung Prüft eine in $1 (String, Länge 34) übergebene IBAN (International Bank Account Number), ob diese korrekt ist. Wenn ja gibt die Funktion mit $0 (Boolean) den Wert Wahr zurück. Beschreibung ändern (nur für Autor - Kennwort geschützt) Keine Beschreibung für IBAN Gültigkeits-Check

---

4D Code Beispiel `$1 := zu prüfende IBAN `$0 := BOOL, wahr wenn IBAN richtig C_STRING(34;$IBAN;$zusammengesetzte_IBAN;$Rest_IBAN;$temp) C_LONGINT($Prüfsumme_berechnet;$Prüfsumme;$Ländercode1;$Ländercode2;$mod_tmp;$counter) $IBAN:=Replace string($1;" ";"") If (Length($IBAN)>34) `Zu lange IBAN --> falsche IBAN $0:=False Else $Ländercode1:=(Ascii(Uppercase(Substring($IBAN;1;1)))-55) $Ländercode2:=(Ascii(Uppercase(Substring($IBAN;2;1)))-55) $Prüfsumme:=Num(Substring($IBAN;3;2)) $Rest_IBAN:=Substring($IBAN;5) $zusammengesetzte_IBAN:=$Rest_IBAN+String($Ländercode1)+String($Ländercode2)+String($Prüfsumme) $counter:=1 $mod_tmp:=0 While (Length($zusammengesetzte_IBAN)>$counter) If ($counter=1) $temp:=Substring($zusammengesetzte_IBAN;$counter;8) $counter:=9 Else $temp:=String($mod_tmp)+Substring($zusammengesetzte_IBAN;$counter;8-Length(String($mod_tmp))) $counter:=$counter+(8-Length(String($mod_tmp))) End if $mod_tmp:=Mod(Num($temp);97) End while $0:=($mod_tmp=1) End if Code ändern (nur für Autor - Kennwort geschützt)

---

Zurück

 

 

International | Firmenprofil | Kontakt | Site Map | © 4D 1995 - 2007 | Schriftgröße ändern: [A] [A] [A] | - * Externer Link