Shopping Cart

Free Newsletter
Signup

Contact

FileMaker is a registered trademark of FileMaker, Inc. in the U.S. and other countries.

FileMaker Pro Custom Functions

List | Show Random | Upload | Add This to Your Site

NumberInWords ( NumberIn; Currency; DecimalCurr )

Rate this function:

Average rating: 3.6 (16 votes)
Discuss this Custom Function

Chris Harvey, Bank of Bermuda
http://www.bankofbermuda.bm

Convert Number to Words, including currency terms.

Sample Input:

61915.21

Sample Output:

Sixty One Thousand Nine Hundred Fifteen Dollars and Twenty One Cents

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; ""; "One"; "Two"; "Three"; "Four "; "Five"; "Six"; "Seven"; "Eight"; "Nine") & " Hundred" & Case(TONum≠0;" ")) & Case(TONum > 19; Choose(tens; ""; ""; "Twenty"; "Thirty"; "Forty"; "Fifty"; "Sixty"; "Seventy"; "Eighty"; "Ninety") & Case(Ones ≠ 0; " ")) & Choose(ones; ""; "One"; "Two"; "Three"; "Four "; "Five"; "Six"; "Seven"; "Eight"; "Nine"; "Ten"; "Eleven"; "Twelve"; "Thirteen"; "Fourteen"; "Fifteen"; "Sixteen"; "Seventeen"; "Eighteen"; "Nineteen") ); 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); ""; "Thousand"; "Million"; "Billion"; "Trillion" ) & Case(NewValue ≠ 0;" " & NumberInWords(NewValue; ""; "None")) ); len = 0; "Zero" ; NumberInWords(Number; "EvalOnly"; "None")) & Case(currency ≠ ""; " " & Currency) & Case(DecimalCurr ≠ "None"; " and " & Let( Decimal = Int(100 * (fullnumber - number)); If(Decimal = 0; "Zero"; NumberInWords(Decimal; "EvalOnly"; "None"))) & " " & DecimalCurr)) ))
Then copy & paste into FileMaker Advanced's Edit Custom Function window.

Click here to copy To Clip Manager if you have myFMbutler's Clip Manager installed

Description:

This should work for most currencies, or even other units such as gallons or litres, etc. Give a null value for Currency if you don't want one. If you want the decimal part to be ignored, set Decimalcurr to "None".
In it's current form this function will handle values into the Trillions. As it works recursively, you can change the Out of Range check value and the names in one Choose function to extend it. It can also handle British Billions by changing the one Choose list.

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

This is my Custom Function and I want to edit it

Discuss:

There are no comments yet. Be the first to post a comment about this Custom Function! Please try to keep it brief & to the point. Anyone can post:

Download the Custom Function Dashboard Widget for OS X
Keep all the latest Custom Functions right at your fingertips!

Newest Custom Functions:

1.	list.intersect (listA; listB)
	(Mon, May 14, 12:43pm)
2.	WeekStart ( weekOfYear ; year )
	(Sat, May 12, 8:42am)
3.	PercentToWords (FIELD)
	(Thu, May 10, 3:16pm)
4.	PercentToText (FIELD)
	(Thu, May 10, 2:37pm)
5.	StripReserved( text )
	(Wed, May 02, 6:05pm)
6.	ListBaseTables
	(Wed, May 02, 3:48pm)
7.	ValidEmail( theEmail )
	(Wed, May 02, 7:27am)
8.	UltraDate (Text; LongDate_or_DateDigit)
	(Wed, May 02, 6:07am)


			[ Close Window ]
	The class that teaches you how to successfully sell your FileMaker Pro solution as a professional shrinkwrapped software application.
	Let's Meet in Person Sunday, August 13 2006, Orlando FL Courtyard Orlando International Drive
	Don't miss this most important day of the Developer Conference. Please click here for complete details and online registration.

FileMaker Pro Custom Functions

Description:

Discuss:

Let's Meet in Person