ParseDollars ( Amount )

Sub-function used by ParseCurrency()

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

Andrew Persons
Excelisys
http://www.excelisys.com

Sample input:

ParseDollars ( 223453 )

Sample output:

Two Hundred Twenty-Three Thousand Four Hundred Fifty-Three Dollars

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

Let ( [

AmtLength = Length ( Amount ) ;                    // Length of the subsequent number
AmtMod = Case ( Mod ( AmtLength ; 3 ) = 0 ; 3 ; Mod ( AmtLength ; 3 ) ) ;       // Number of digits to the left of the leftmost comma
CurrentSection = Left ( Amount ; AmtMod )     // Actual digits to the left of the leftmost comma

] ;

Case ( AmtLength > 32 ; "That number is too high to parse." ;

Case ( AmtLength > 3 ; 

ParseHundreds ( CurrentSection ) &

Case ( GetAsNumber ( CurrentSection ) > 0 ; Choose ( Ceiling ( AmtLength / 3 ) ; "" ; "" ; " Thousand" ; " Million" ; " Billion" ; " Trillion" ; " Quadrillion" ; " Quintillion" ; " Sextillion" ; " Septillion" ; " Octillion" ; " Nonillion" ) ) &


ParseDollars ( Replace ( Amount ; 1 ; AmtMod ; "" ) ) ;

ParseHundreds ( Amount )

) ) )

Updated 4/24/2006: Fixed various bugs.

ParseDollars() is a sub-function used by ParseCurrency(). It also makes use of ParseHundreds() [also listed on this site], which should be entered first.

It takes a currency input of only dollars (not cents) and returns the text equivalent. It is a recursive function.

Comments

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

ParseDollars ( Amount )

Comments

Support this website.

Support this website.