Newest functions Upload a function Leave a tip My account

There are 2,572 functions in this library.

ParseHundreds ( Amount )

Sub-function used by ParseCurrency() and ParseDollars()

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

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

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

Let ( [ AmtLength = Length ( Amount ) ; Hundreds = Left ( Amount ; 1 ) ; // Digit in the hundreds column Tens = Middle ( Amount ; AmtLength - 1 ; 1 ) ; // Digit in the tens column Ones = Right ( Amount ; 1 ) // Digit in the ones column ] ; Case ( AmtLength = 3 ; Choose ( Hundreds ; "" ; " One Hundred" ; " Two Hundred" ; " Three Hundred" ; " Four Hundred" ; " Five Hundred" ; " Six Hundred" ; " Seven Hundred" ; " Eight Hundred" ; " Nine Hundred" ) ) & Case ( AmtLength ≥ 2 ; Choose ( Tens ; "" ; Choose ( Ones ; " Ten" ; " Eleven" ; " Twelve" ; " Thirteen" ; " Fourteen" ; " Fifteen" ; " Sixteen" ; " Seventeen" ; " Eighteen" ; " Nineteen" ) ; " Twenty" ; " Thirty" ; " Forty" ; " Fifty" ; " Sixty" ; " Seventy" ; " Eighty" ; " Ninety" ) ) & Case ( Tens ≠ 1 or AmtLength = 1 ; Substitute ( Choose ( Ones ; "" ; " One" ; " Two" ; " Three" ; " Four" ; " Five" ; " Six" ; " Seven" ; " Eight" ; " Nine" ) ; " " ; Case ( Tens > 1 and Ones ≠ 0 ; "-" ; " " ) ) ) ) Click to copy

Updated 4/24/2006: Fixed various bugs.

This function is the heart of the ParseCurrency() function. ParseCurrency breaks up the currency into hundreds sections (digits between commas) and passes them to this function, which returns the text equivalent. ParseCurrency() then appends the proper description (thousands, millions, billions, etc) and continues breaking down the currency recursively.

When implementing, this function should be created first, then ParseDollars(), then ParseCurrency().

 

Comments

Log in to post comments.

 

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

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 21 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: