CurrencyFormat ( Amount, CU ; BP ; ND )

Flexible money format

Average rating: 3.9 (20 votes) Log in to vote

Omelyan Burtnyk - Show more from this author
Go To Logistics
https://gotologistics.net

Sample input:

1.Currency(123456789.55612, $, " ", 2 )

2.1.Currency(123456789.55612, €, ",", 3 )

Sample output:

1. $123 456 789.56

2. €123,456,789.556

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

//author: Omelyan Burtnyk
/*
Amount = Table::Field
CU = Globals::currencySymbol;
BP = Globals::brakePoint;
ND = Globals::num_of_Decimals;
*/

Let( [
    S = Round( Abs( Amount ); ND );
    LS = Length( S );
    I = Int( S );
    LI = Length( I );
    Ldif = LS - LI;
    D = Right( S; Ldif );
    Dec = If( S <> I; D; ".00" ) 
     ];

    Case( S < 0; "-" ) & 
    CU &
    Case(
	LI = 12; Left( I; 3 ) & " " & Middle( I; 4; 3 ) & " " & Middle( I; 7; 3 ) & " " & Right( I; 3 );
	LI = 11; Left( I; 2 ) & " " & Middle( I; 3; 3 ) & " " & Middle( I; 6; 3 ) & " " & Right( I; 3 );
	LI = 10; Left( I; 1 ) & " " & Middle( I; 2; 3 ) & " " & Middle( I; 5; 3 ) & " " & Right( I; 3 );
	LI = 9; Left( I; 3 ) & " " & Middle( I; 4; 3 ) & " " & Right( I; 3 );
	LI = 8; Left( I; 2 ) & " " & Middle( I; 3; 3 ) & " " & Right( I; 3 );
	LI = 7; Left( I; 1 ) & " " & Middle( I; 2; 3 ) & " " & Right( I; 3 );
	LI = 6; Left( I; 3 ) & " " & Right( I; 3 );
	LI = 5; Left( I; 2 ) & " " & Right( I; 3 );
	LI = 4; Left( I; 1 ) & " " & Right( I; 3 );
	LI = 1;  If( I <> 0; I; "0." );
	I
        )
	& Dec
 )

Flexible currency format

Comments

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

CurrencyFormat ( Amount, CU ; BP ; ND )

Comments

Support this website.

Support this website.