CardinalToText_Utility ( value ; quantifier )

called by http://www.briandunning.com/cf/573

Average rating: 4.2 (26 votes) Log in to vote

Clement Hoffmann - Show more from this author
none
none

Sample input:

#N/A

Sample output:

#N/A

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

Let (
    [
        %unit = "¶un ¶deux ¶trois ¶quatre ¶cinq ¶six ¶sept ¶huit ¶neuf ";
        %ten1 = "dix ¶onze ¶douze ¶treize ¶quatorze ¶quinze ¶seize ¶dix-sept ¶dix-huit ¶dix-neuf ";
        %tens = "¶vingt¶trente¶quarante¶cinquante¶soixante¶soixante-dix¶quatre-vingt";
        %tsn = "¶soixante¶quatre-vingt";
        %nqtf = "cent¶mille¶million¶milliard¶";

        hun = Int ( Mod ( value; 10 ^ 3 ) / 10 ^ 2 );
        ten = Int ( Mod ( value; 10 ^ 2 ) / 10 );
        unt = Int ( Mod ( value; 10 ) );
        tsn = Position ( "179"; ten; 1; 1 );
        tts = Position ( "23456"; ten; 1; 1 )
    ];
    If (
        hun;
        If ( hun > 1; GetValue ( %unit; hun + 1 ) ) & GetValue ( %nqtf; 1 ) &
        If ( hun > 1 and not ( ten + unt ); If ( quantifier <> 2; "s " ; " " ) ; " " ) 
    ) &
    If (
        tsn;
        GetValue ( %tsn; tsn ) & Case ( tsn = 2 and unt = 1; " et "; tsn > 1; "-" );
        GetValue ( %tens; ten ) &
        Case (
            ten = 8 and not unt ; If ( quantifier = 2; " "; "s " );
            tts and not unt; " ";
             ( ten and unt > 1 ) or  ( ten = 8 and unt = 1 ); "-";
            tts and unt = 1;  " et "
        )
    ) &
    GetValue ( If ( tsn; %ten1; %unit ); If ( quantifier = 2 and value = 1 ; ""; unt + 1 ) ) &
    If (
        Position ( "432"; quantifier; 1; 1 );
        GetValue ( %nqtf; quantifier ) & If ( value > 1 and quantifier <> 2; "s "; " " )
    )
)

Sub routine called by "CardinalToText" function
http://www.briandunning.com/cf/573

Comments

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

CardinalToText_Utility ( value ; quantifier )

Comments

Support this website.

Support this website.