WINDEV PROCEDURE chiffres_ar

PROCEDURE chiffres_ar(X)

ma, mi, r, RESULT1 are strings
cyCt is currency
b is string
n is 8-byte int = val(X)

ma = " دينار جزائري "
mi = " سنتيم"

cyCt = DecimalPart(X)
b = Middle(NumToString(cyCt,".2f"),3,4)
r = chiffres_en_lettres_ar(n)

IF r <> "" AND Val(b) > 0 THEN
	RESULT1 = r + ma +" و " +chiffres_en_lettres_ar(Val(b)) + mi
ELSE IF r <> "" AND Val(b) = 0 THEN
	RESULT1 = r + ma
ELSE IF r = "" AND Val(b) <> 0 THEN
	RESULT1 =chiffres_en_lettres_ar(Val(b)) + mi
END

RESULT RESULT1