MoneyToWords2 ( NumberField )

Calculate a number into words - modification

Average rating: 4.7 (31 votes) Log in to vote

Tim Anderson - Show more from this author
Tim Anderson Group

Sample input:

MoneyToWords2 ( 7654021.05 )

Sample output:

Seven Million, Six Hundred and Fifty Four Thousand and Twenty One pounds and Five pence

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

Choose(Int(Mod(NumberField;10^12) / 10^11); ""; "One Hundred "; "Two
Hundred "; "Three Hundred "; "Four Hundred "; "Five Hundred "; "Six
Hundred "; "Seven Hundred "; "Eight Hundred "; "Nine Hundred ")
& Case(Int(Mod(NumberField;10^12) / 10^11)and Int(Mod(NumberField;10^10) / 10^9)>0>0;"and ";"")
&
If(Int(Mod(NumberField;10^11) / 10^10) = 1;
Choose(Int(Mod(NumberField;10^10) / 10^9); "Ten "; "Eleven "; "Twelve
"; "Thirteen "; "Fourteen "; "Fifteen "; "Sixteen "; "Seventeen ";
"Eighteen "; "Nineteen ");
Choose(Int(Mod(NumberField;10^11) / 10^10); ""; ""; "Twenty ";
"Thirty "; "Forty "; "Fifty "; "Sixty "; "Seventy "; "Eighty ";
"Ninety ")
&
Choose(Int(Mod(NumberField;10^10) / 10^9); ""; "One "; "Two "; "Three
"; "Four "; "Five "; "Six "; "Seven "; "Eight "; "Nine "))
&
Case(Int(Mod(NumberField;10^12)/10^9) and Int(Mod(NumberField;10^9) /
10^3); "Billion, "; Int(Mod(NumberField;10^12)/10^9);"Billion ";"")
  &
Choose(Int(Mod(NumberField;10^9) / 10^8); ""; "One Hundred "; "Two
Hundred "; "Three Hundred "; "Four Hundred "; "Five Hundred "; "Six
Hundred "; "Seven Hundred "; "Eight Hundred "; "Nine Hundred ")
//
& Case(Int(Mod(NumberField;10^9) / 10^8)>0 and Int(Mod(NumberField;10^8) / 10^7)>0;"and ";"")
//
&
If(Int(Mod(NumberField;10^8) / 10^7) = 1; 
Choose(Int(Mod(NumberField;10^7) / 10^6); "Ten "; "Eleven "; "Twelve
"; "Thirteen "; "Fourteen "; "Fifteen "; "Sixteen "; "Seventeen ";
"Eighteen "; "Nineteen ");
Choose(Int(Mod(NumberField;10^8) / 10^7); ""; ""; "Twenty "; "Thirty
"; "Forty "; "Fifty "; "Sixty "; "Seventy "; "Eighty "; "Ninety ")
&
Choose(Int(Mod(NumberField;10^7) / 10^6); ""; "One "; "Two "; "Three
"; "Four "; "Five "; "Six "; "Seven "; "Eight "; "Nine "))
&
Case(Int(Mod(NumberField;10^9)/10^6) and Int(Mod(NumberField;10^6) /
10^3); "Million, "; Int(Mod(NumberField;10^9)/10^6);"Million ";"")
&
Choose(Int(Mod(NumberField;10^6) / 10^5); ""; "One Hundred "; "Two
Hundred "; "Three Hundred "; "Four Hundred "; "Five Hundred "; "Six
Hundred "; "Seven Hundred "; "Eight Hundred "; "Nine Hundred ")
//
& Case(Int(Mod(NumberField;10^6) / 10^5)>0 and Int(Mod(NumberField;10^5) / 10^4)>0;"and ";"")
//
&
If(Int(Mod(NumberField;10^5) / 10^4) = 1;
Choose(Int(Mod(NumberField;10^4) / 10^3); "Ten "; "Eleven "; "Twelve
"; "Thirteen "; "Fourteen "; "Fifteen "; "Sixteen "; "Seventeen ";
"Eighteen "; "Nineteen ");
Choose(Int(Mod(NumberField;10^5) / 10^4); ""; ""; "Twenty "; "Thirty
"; "Forty "; "Fifty "; "Sixty "; "Seventy "; "Eighty "; "Ninety ")
&
Choose(Int(Mod(NumberField;10^4) / 10^3); ""; "One "; "Two "; "Three
"; "Four "; "Five "; "Six "; "Seven "; "Eight "; "Nine "))
&
//
Case(Int(Mod(NumberField;10^6)/10^3) and Int(Mod(NumberField;10^3) /10^0); "Thousand" & Case(Int(Mod(NumberField;10^3) / 100)=0;" and ";", "); Int(Mod(NumberField;10^6)/10^3);"Thousand ";"")
//
&
Choose(Int(Mod(NumberField;10^3) / 100); ""; "One Hundred "; "Two
Hundred "; "Three Hundred "; "Four Hundred "; "Five Hundred "; "Six
Hundred "; "Seven Hundred "; "Eight Hundred "; "Nine Hundred ")
 
& Case(Int(Mod(NumberField;10^3) / 100)>0 and Int(NumberField / 10)>0;"and ";"")

&
If(Int(Mod(NumberField;100) / 10) = 1;
Choose(Int(Mod(NumberField;10)); "Ten "; "Eleven "; "Twelve ";
"Thirteen "; "Fourteen "; "Fifteen "; "Sixteen "; "Seventeen ";
"Eighteen "; "Nineteen ");
Choose(Int(Mod(NumberField;100) / 10); ""; ""; "Twenty "; "Thirty ";
"Forty "; "Fifty "; "Sixty "; "Seventy "; "Eighty "; "Ninety ") &
Choose(Int(Mod(NumberField;10)); ""; "One "; "Two "; "Three "; "Four
"; "Five "; "Six "; "Seven "; "Eight "; "Nine ")) &
Case(Int(NumberField) > 1; "Dollars"; Int(NumberField) = 1; "Dollar";
"")
  &
If(Mod(NumberField; 1) and Int(NumberField);" and ";"")
&
If(Mod(Int(NumberField*10); 10) = 1;
Choose(Mod(Int(NumberField*100); 10); "Ten "; "Eleven "; "Twelve ";
"Thirteen "; "Fourteen "; "Fifteen "; "Sixteen "; "Seventeen ";
"Eighteen "; "Nineteen ");
Choose(Mod(Int(NumberField*10); 10); ""; ""; "Twenty "; "Thirty ";
"Forty "; "Fifty "; "Sixty "; "Seventy "; "Eighty "; "Ninety ")
&
Choose(Mod(Int(NumberField*100); 10); ""; "One "; "Two "; "Three ";
"Four "; "Five "; "Six "; "Seven "; "Eight "; "Nine ")) &
Case(Mod(NumberField; 1) > .01; "cents"; Mod(NumberField; 1) = .01; "cent";"")

Modification of Don Wieland's CF to include an 'and' after hundreds where appropriate.
Thanks for the original Don.

Updated Aug 10th 2006. error in formula for numbers over a million, plus now gives :
Seven Million, Six Hundred and Fifty Four Thousand and Twenty One pounds
rather than:
Seven Million, Six Hundred and Fifty Four Thousand, Twenty One pounds

Better for those of us in the UK!

Comments

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

MoneyToWords2 ( NumberField )

Comments

Support this website.

Support this website.