mkFormatDollarsWithCommas ( Amount )

Format a number as dollars, separated by commas and truncated to two decimal places. Uses recursion to avoid maximum limit on length of numbers to be formatted.

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

Michael Kupietz - Show more from this author
Michael Kupietz FileMaker Consulting
https://michaelkupietz.com

Sample input:

mkFormatDollarsWithCommas ( 1234567898765432.1 )

mkFormatDollarsWithCommas ( -123 )

Sample output:

$1,234,567,898,765,432.10

-$123.00

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

Substitute(
  Substitute(

If(Amount<0;"-";"")&"$"&

Let(
 [
   Rounded=Truncate(GetAsNumber(Abs(Amount));2);
   IntPart=Int(Rounded);
   SmallPart=Mod(Rounded; 1000); //part of Rounded which is < 1000
   BigPart=Int(Rounded/1000); //part of rounded >= 1000
   Iteration=If(Length(IntPart)>3; 
                      mkFormatDollarsWithCommas(BigPart)&","
                             &Left("00";3-Length(Int(SmallPart)))  // pad iteration with 0s after comma if Rounded < 100
                       ;"");
   OnesSpotZeroPlaceholder=If(SmallPart>0 and SmallPart<1;"0";""); //pad ones spot with 0 placeholder if 0<SmallPart<1
   TrailingDecimalZeros=If(IntPart=Rounded;".0";"") &If(Int(Rounded*10)=Rounded*10;"0";"") //pad to .00 with 0s if necessary
 ];

    Iteration  & OnesSpotZeroPlaceholder & SmallPart  & TrailingDecimalZeros

)

;".00,";",") //remove .00 from previous iteration
;"$$";"$") //remove extra $ from previous iteration



/*
Function authored by Michael E. Kupietz. Contact information and comprehensive resume can be found on http://www.kupietz.com 

This software algorithm is licensed under the Creative Commons Attribution-Noncommercial-Share Alike 3.0 Unported License. To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter to Creative Commons, 171 Second Street, Suite 300, San Francisco, California, 94105, USA.

You are permitted to use or modify this code for personal, noncommercial use, provided it contains this entire comment block without any alteration. */

This takes any string of digits, with any number of decimal places and an optional negative sign at the beginning, and returns them as a text string formatted dollar sign, commas every three decimal places before the decimal point, and two decimal places after the point.

The advantage of the recursive method used is that there is no maximum limit on the length of the number which is to be converted.

Comments

		Tim Owen, Los Angeles, CA Dec 3, 2009
There appears to be an error in the formula in the line: 'If(Digits<0;"-";"")&"$"&' If you replace 'Digits' with 'Number' (the correct parameter), it works. Tim Owen tim@timowenconsulting.com

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

mkFormatDollarsWithCommas ( Amount )

Comments

Support this website.

Support this website.