ParseCurrency ( Amount ; Decimal )

Turns numerical currency into the text equivalent

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

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

Sample input:

ParseCurrency ( "223453.05" , "." )

Sample output:

Two Hundred Twenty-Three Thousand Four Hundred Fifty-Three Dollars and Five Cents

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

Let ( [

Amt = Filter ( Amount ; "0123456789" & Decimal ) ;      // Remove all non-numeric, non-decimal characters 
AmtLength = Length ( Amt ) ;                                        // Length of the subsequent number
DecimalPosition = Position ( Amt ; Decimal ; 1 ; 1 ) ;              // Position in the number of any decimal
Cents = Case ( DecimalPosition = 0 ; "" ; Left ( Right ( Amt ; AmtLength - DecimalPosition ) & "0" ; 2 ) )

] ;

Case ( 

AmtLength > 32 ; "Number is too high to parse." ;

PatternCount ( Amt ; Decimal ) > 1 ; "Too many decimals." ;

Length (Cents ) > 2 ; "Decimal is in the wrong position" ;


Replace ( ParseDollars ( Case ( DecimalPosition = 0 ; Amt ; Replace ( Amt ; DecimalPosition ; 99999 ; "" ) ) ) ; 1 ; 1 ; "" ) & Case ( Amount > 1 ; " Dollars" ; " Dollar" ) &

" and" & ParseHundreds ( Cents ) & Case ( GetAsNumber ( Cents ) < 1 ; " Zero Cents" ; GetAsNumber ( Cents ) > 1 ; " Cents" ; " Cent" )

)

)

Updated 7/3/2006: Fixed various bugs.

ParseCurrency() takes a numerical currency and the decimal symbol used ("."; ","; etc.) and returns the long text equivalent. One application of this is for check printing.

It makes use of two other functions, ParseHundreds() and ParseDollars(). To implement this, you need to create the ParseHundreds() function first, then ParseDollars(), and finally create ParseCurrency().

Comments

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

ParseCurrency ( Amount ; Decimal )

Comments

Support this website.

Support this website.