CardinalToText ( Amount )

Converts Numbers to Text in French (...from 999 billions to the tenth of unit...)

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

Clement Hoffmann - Show more from this author
none
none

Sample input:

CardinalToText ( 96280,71 )

Sample output:

quatre-vingt-seize mille deux cent quatre-vingts euros et soixante et onze centimes

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

/* Custom function by Clement Hoffmann */
/*______________[  2006-03  ]_____________*/
/*_____________ FMP8 or higher ___________*/


If (
    Amount;
    Let (
        [
            currency = "euro";
            fraction = "centime";

            vW = Int ( Mod ( Amount; 10 ^ 12 ) );
            vB = Int ( Mod ( Amount; 10 ^ 12 ) / 10 ^ 9 );
            vM = Int ( Mod ( Amount; 10 ^ 9 ) / 10 ^ 6 );
            vT = Int ( Mod ( Amount; 10 ^ 6 ) / 10 ^ 3 );
            vH = Int ( Mod ( Amount; 10 ^ 3 ) );
            vD = Mod ( Int ( Amount * 100 ); 100 );

            //# Quantifiers used by the CardinalToText_Utility sub-function : "cent¶mille¶million¶milliard¶"

            bil = If ( vB; CardinalToText_Utility ( vB; 4 ) );
            mil = If ( vM; CardinalToText_Utility ( vM; 3 ) );
            thd = If ( vT; CardinalToText_Utility ( vT; 2 ) );
            hnd = If ( vH; CardinalToText_Utility ( vH; "" ) ) & If ( vW; currency & If ( vW > 1; "s" ); "zéro " & currency ) & If ( vD; " et " );
            dec = If ( vD; CardinalToText_Utility ( vD; "" ) & fraction & Case ( vD > 1; "s" ) )
        ];

        bil & mil & thd & hnd & dec

    )
)

Converts Numbers to Text in French

Range: from 999 billions to the tenth of unit
Recursive: No

Calls : CardinalToText_Utility ( value ; quantifier )
http://www.briandunning.com/cf/571

Comments

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

CardinalToText ( Amount )

Comments

Support this website.

Support this website.