NumberInWords arabic Version ( NumberIn ; Currency ; DecimalCurr )

Average rating: 5.0 (1 vote) Log in to vote

Messahel messaoud - Show more from this author
nowhere

Sample input:

1500,00 دج

Sample output:

ألف وخمس مائة دينار جزائري و صفر سنتيم

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

Case(NumberIn = 0; ""; 

Let ( [
FullNumber = GetAsNumber( numberin ); 
Number = Int( FullNumber ); 
len = If ( Number = 0 ; 0 ; Int(Log(Number)) + 1 )
] ; 
Case(len > 15; 
  "Out of Range"; 
Currency = "EvalOnly"; 
   Let([
    Hundred = Left(number; 1); 
    TensOnes = Right(number; 2); 
    TONum = GetAsNumber(TensOnes); 
    Tens = Left(TensOnes; 1); 
    Ones = If( TONum < 20; TensOnes; Right(TensOnes; 1))
  ];
  Case(len = 3; 
    Choose(hundred; ""; "مائة"; "مئتين"; "ثلاثمائة"; "اربعمائة"; "خمس مائة"; "ست مائة"; "سبع مائة"; "ثماني مائة"; "تسع مائة") & " و" & Case(TONum≠0;" "))
  & Case(TONum > 19; 
    Choose(tens; ""; ""; "عشرون"; "ثلاثون"; "أربعون"; "خمسون"; "ستون"; "سبعون"; "ثمانون"; "تسعون") & Case(Ones ≠ 0; " ")) 
  & Choose(ones; ""; "واحد "; "إثنان "; "ثلاثة "; "اربعة "; "خمسة "; "ستة "; "سبعة "; "ثمانية "; "تسعة "; "عشرة "; "احدى عشرة"; "اثنان عشرة"; "ثلاثة عشر"; "اربعة عشرة"; "خمسة عشرة"; "ستة عشرة"; "سبعة عشرة"; "ثمانية عشرة"; "تسعة عشرة")
);

  Case(len >3; 
    Let([
      UseLeft = Choose(Mod(len;  3);3; 1; 2); 
      NewLen= 10 ^ (len - UseLeft); 
      ThisValue = Div(number; NewLen); 
      NewValue = Number - ThisValue * NewLen
    ]; 
    NumberInWords ( ThisValue; "EvalOnly"; "None" ) & " " & Choose( Div(len - 1; 3); ""; "ألف و"; "مليون و"; "مليار و"; " ترليون و" ) & Case(NewValue ≠ 0;" " & NumberInWords(NewValue; ""; "None"))
    ); 
  len = 0; "صفر" ;
  NumberInWords(Number; "EvalOnly"; "None")) & Case(currency ≠ ""; " " & Currency)
  &  Case(DecimalCurr ≠ "None"; " و" 
    & Let(
      Decimal = Int(100 * (fullnumber - number)); 
    If(Decimal = 0; "صفر"; NumberInWords(Decimal; "EvalOnly"; "None"))) & " " & DecimalCurr))
))

here i translate this famouse custom function NumberInWords(NumberIn ; Currency ; DecimalCurr) from Chris Harvey to arabic because there is no arabic custom function to convert currency to letters ..i hop you like this contribution

"في هذه السكريبت قمت بتعديل النسخة الشهيرة الانجليزية لصديقنا "كريس هارفي الى اللغة العربية لأنه اعتقد لا توجد نسخة عربية تقوم بتحويل المبالغ المالية الى كلمات واحرف في اللغة العربية. اتمنى ان تنال هذه المشاركة إعجابكم

Comments

		TA May 20, 2020
Thanks for the upload When I try "46" It returns Ø£Ø±Ø¨Ø¹ÙˆÙ† Ø³ØªØ© Ø¯ÙˆÙ„Ø§Ø± ÙˆØµÙØ± Ø³Ù†Øª It reads 40 before 6 Am I missing something? Thanks

		Messahel messaoud, nowhere May 21, 2020
i will fix this probleme okay

		KHALID SAID , K.D May 22, 2020
1500,00 Ø¯Ø¬ /// Ø£Ù„Ù ÙˆØ®Ù…Ø³ Ù…Ø§Ø¦Ø© Ø¯ÙŠÙ†Ø§Ø± Ø¬Ø²Ø§Ø¦Ø±ÙŠ Ùˆ ØµÙØ± Ø³Ù†ØªÙŠÙ… Ù…Ø±ØØ¨Ø§ Ù…Ù…ÙƒÙ† ØªÙØ¹ÙŠÙ„ Ø§Ù„Ø¯Ø§Ù„Ù‡ Ø§Ù„Ø¹Ø´Ø±ÙŠÙ‡ ÙˆØªÙƒÙˆÙ† Ù…Ù† 3 Ø§Ø±Ù‚Ø§Ù… Ù…Ø«Ø§Ù„ 1500,000

		Shah, Maaden, Saudi Arabia Aug 5, 2020
Dear Messahel, great job done. pls. help me out here, I need custom function for text field convert to arabic text in another field, same as your design above numer to arabic text. I need only english text to arabic text. Much appreciate.Thanks,

		Shah, Maaden, Saudi Arabia Aug 7, 2020
Just a friendly Reminder Dear Messahel, great job done. pls. help me out here, I need custom function for text field convert to arabic text in another field, same as your design above number to arabic text. I need only english text to arabic text. Much appreciate.Thanks,

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

NumberInWords arabic Version ( NumberIn ; Currency ; DecimalCurr )

Comments

Support this website.

Support this website.