bousaid

WINDEV PROCEDURE chiffres_ar

Aug 10th, 2020 (edited)
398
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. PROCEDURE chiffres_ar(X)
  2.  
  3. ma, mi, r, RESULT1 are strings
  4. cyCt is currency
  5. b is string
  6. n is 8-byte int = X
  7.  
  8. ma = " دينار جزائري "
  9. mi = " سنتيم"
  10.  
  11. cyCt = DecimalPart(X)
  12. b = Middle(NumToString(cyCt,".2f"),3,4)
  13. r = chiffres_en_lettres_ar(n)
  14.  
  15. IF r <> "" AND Val(b) > 0 THEN
  16. RESULT1 = r + ma +" و " +chiffres_en_lettres_ar(Val(b)) + mi
  17. ELSE IF r <> "" AND Val(b) = 0 THEN
  18. RESULT1 = r + ma
  19. ELSE IF r = "" AND Val(b) <> 0 THEN
  20. RESULT1 =chiffres_en_lettres_ar(Val(b)) + mi
  21. END
  22.  
  23. RESULT RESULT1
RAW Paste Data