Hi everyone, can somebody tell me how to check a “French Bankaccount No.” ? Thanks Nico
yes you can do this : create a function : checkrib: Var Name DataType Subtype Length No Guichet Text 20 No Agence Text 20 No Compte Text 30 No CleRIB Integer IF NOT((STRLEN(Guichet) = 5) AND (STRLEN(Agence) = 5) AND (STRLEN(Compte) = 11) AND (CleRIB < 100 )) THEN EXIT(FALSE); NumCpteLong := Guichet + Agence + Compte + CONVERTSTR(FORMAT(CleRIB,2),’ ',‘0’); NumCpteLong := CONVERTSTR(NumCpteLong,‘ABCDEFGHIJKLMNOPQRSTUVWXYZ’,‘12345678912345678923456789’); Reste := 0; FOR Cptr := 1 TO 23 DO Reste := (Reste * 10 + (NumCpteLong[Cptr] - ‘0’)) MOD 97; EXIT(Reste = 0);