MoneyToWords ( NumberField )

Calculate a number value into WORDS (Text Result)

Average rating: 4.3 (33 votes) Log in to vote

Don Wieland - Show more from this author
DW Data Concepts
http://dwdataconcepts.com

Sample input:

MoneyToWords ( 1234.56 )

Sample output:

One Thousand, Two Hundred Thirty Four Dollars and Fifty Six cents

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 ")
&
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 ")
&
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 ")
&
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, ", 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 ")
&
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","")

Take a number value and convert it to words to be used in CHECK printing.

Comments

		Dan Nietzsche, New York May 13, 2017
I have two Adobe PDF fields How could I adapt the above script to give me this result ? 1. Check amount 1,234.56 2. Check amount as a text One Thousand Two Hundred Thirty-Four and Fity-Six/100

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

MoneyToWords ( NumberField )

Comments

Support this website.

Support this website.