NumbertoWords

Converts a number to the correct words, works with 2 decimals only

Average rating: 4.0 (1 vote) Log in to vote

Eric van Oosterom - Show more from this author
HarperMac Marine Survey

Sample input:

NumbertoWords(31717,07;"M.T.";"Kg")

Sample output:

Thirty One Thousand, Seven Hundred Seventeen M.T.s and Seven Kgs

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

/**
******************************************************************************************************************************
*
*      NumbertoWords(Numberfield;Currency;DecimalCurr)
*
*   PURPOSE:
*		set a number in words
*
*   RETURNS:
*		A number in words.
*
*   PARAMETERS:
*		Numberfield; the actual number to be translated in words.
*		Currency: for instance Dollar; Euro; Metric Tons etc.
*		DecimalCurr: for instance Cent; Kilorams etc..
*
*   DEPENDENCIES:
*		# ( name ; field value ; "value" ; "value" )
*
*   HISTORY:
*	    CREATED by Don Wieland as MoneytoWords
*
*       Updated Aug 10th 2006 by Tim Anderson as as MoneytoWords2
*       - "Modification of Don Wieland's CF to include an 'and' after hundreds where appropriate. 
*       - error in formula for numbers over a million, plus now gives :
*           Seven Million, Six Hundred and Fifty Four Thousand and Twenty One pounds
*           rather than:    Seven Million, Six Hundred and Fifty Four Thousand, Twenty One pounds 
*
*       Updated by Eric van Oosterom
*       - added expressions "Currency" and "DecimalCurr" so that people don't have to change anything in the CF itself.
*       - Enclosed the whole formula in a let statement.
*       - made the code better readable.
*       - renamed the CF to NumbertoWords, slightly clearer name because it can be used for other number than only for money.
*
******************************************************************************************************************************
*
*/

Let ([
    ~Numberfield = Numberfield ;
    ~Currency = Currency;
    ~DecimalCurr = DecimalCurr
];
    
Choose( Int( Mod( ~Numberfield ; 10^12) / 10^11); 
            ""; 
            "One Hundred "; 
            "Two Hundred ";
            "Three Hundred ";
            "Four Hundred ";
            "Five Hundred ";
            "Six Hundred ";
            "Seven Hundred ";
            "Eight Hundred ";
            "Nine Hundred "
            )

    &

If( Int( Mod( ~Numberfield ; 10^11 ) / 10^10 ) = 1;
    Choose( Int( Mod( ~Numberfield ; 10^10) / 10^9);
            "Ten ";
            "Eleven ";
            "Twelve ";
            "Thirteen "; 
            "Fourteen ";
            "Fifteen ";
            "Sixteen ";
            "Seventeen ";
            "Eighteen ";
            "Nineteen ");

    Choose( Int( Mod( ~Numberfield ; 10^11 ) / 10^10 );
            "";
            "";
            "Twenty ";
            "Thirty ";
            "Forty ";
            "Fifty ";
            "Sixty ";
            "Seventy ";
            "Eighty ";
            "Ninety "
            )

    &

    Choose( Int( Mod( ~Numberfield ; 10^10 ) / 10^9 );
            "";
            "One ";
            "Two ";
            "Three ";
            "Four ";
            "Five ";
            "Six ";
            "Seven ";
            "Eight ";
            "Nine "
            )
    )

    &

Case(   Int( Mod( ~Numberfield ; 10^12) / 10^9 ) and Int(Mod(~Numberfield;10^9) / 10^3 );
            "Billion, ";
        Int( Mod( ~Numberfield ; 10^12 ) / 10^9 ); 
            "Billion " ; 
            ""
        )

    &

    Choose( Int( Mod( ~Numberfield ; 10^9 ) / 10^8 );
            "";
            "One Hundred ";
            "Two Hundred ";
            "Three Hundred ";
            "Four Hundred ";
            "Five Hundred ";
            "Six Hundred ";
            "Seven Hundred ";
            "Eight Hundred ";
            "Nine Hundred "
            )

    &

If( Int( Mod( ~Numberfield ; 10^8 ) / 10^7 ) = 1;
    Choose( Int( Mod( ~Numberfield ; 10^7 ) / 10^6 );
            "Ten ";
            "Eleven ";
            "Twelve ";
            "Thirteen ";
            "Fourteen ";
            "Fifteen ";
            "Sixteen ";
            "Seventeen ";
            "Eighteen ";
            "Nineteen "
            );

    Choose( Int( Mod( ~Numberfield ; 10^8 ) / 10^7 );
            "";
            "";
            "Twenty ";
            "Thirty ";
            "Forty ";
            "Fifty ";
            "Sixty "; 
            "Seventy "; 
            "Eighty ";
            "Ninety "
            )

    &

    Choose( Int( Mod( ~Numberfield ; 10^7 ) / 10^6 );
            "";
            "One ";
            "Two ";
            "Three ";
            "Four ";
            "Five ";
            "Six ";
            "Seven ";
            "Eight ";
            "Nine "
            )
    )

    &

Case(   Int( Mod( ~Numberfield ; 10^9 ) / 10^6 ) and Int( Mod( ~Numberfield ; 10^6 ) / 10^3 );
            "Million, ";
        Int( Mod( ~Numberfield ; 10^9 ) / 10^6 );
            "Million ";
            ""
        )

    &

    Choose( Int( Mod( ~Numberfield ; 10^6 ) / 10^5 );
            "";
            "One Hundred ";
            "Two Hundred ";
            "Three Hundred ";
            "Four Hundred ";
            "Five Hundred ";
            "Six Hundred ";
            "Seven Hundred ";
            "Eight Hundred ";
            "Nine Hundred "
            )

    &

If( Int( Mod( ~Numberfield ; 10^5 ) / 10^4 ) = 1;
    Choose( Int( Mod( ~Numberfield ; 10^4 ) / 10^3 ) ;
            "Ten ";
            "Eleven ";
            "Twelve ";
            "Thirteen ";
            "Fourteen ";
            "Fifteen ";
            "Sixteen ";
            "Seventeen ";
            "Eighteen "; 
            "Nineteen "
            );

    Choose( Int( Mod( ~Numberfield ; 10^5 ) / 10^4 );
            "";
            "";
            "Twenty ";
            "Thirty ";
            "Forty ";
            "Fifty ";
            "Sixty ";
            "Seventy ";
            "Eighty ";
            "Ninety "
            )

    &

    Choose( Int( Mod( ~Numberfield ; 10^4 ) / 10^3 );
            "";
            "One ";
            "Two ";
            "Three ";
            "Four ";
            "Five ";
            "Six ";
            "Seven ";
            "Eight ";
            "Nine "
            )
    )
    &

Case(   Int( Mod( ~Numberfield ; 10^6 ) / 10^3 ) and Int( Mod( ~Numberfield ; 10^3 ) / 10^0 );
            "Thousand, ";
        Int( Mod( ~Numberfield ; 10^6 ) / 10^3 );
            "Thousand ";
            ""
        )

    &

    Choose( Int( Mod( ~Numberfield; 10^3 ) / 100);
            "";
            "One Hundred ";
            "Two Hundred ";
            "Three Hundred ";
            "Four Hundred ";
            "Five Hundred ";
            "Six Hundred "; 
            "Seven Hundred "; 
            "Eight Hundred ";
            "Nine Hundred "
            )

    &

If( Int( Mod( ~Numberfield ; 100 ) / 10 ) = 1;
    Choose( Int( Mod( ~Numberfield ; 10 ) );
            "Ten ";
            "Eleven ";
            "Twelve ";
            "Thirteen ";
            "Fourteen ";
            "Fifteen ";
            "Sixteen ";
            "Seventeen ";
            "Eighteen ";
            "Nineteen "
            );

    Choose( Int( Mod( ~Numberfield ; 100 ) / 10 );
            "";
            "";
            "Twenty ";
            "Thirty ";
            "Forty ";
            "Fifty ";
            "Sixty ";
            "Seventy "; 
            "Eighty "; 
            "Ninety "
            )
            
    &

    Choose( Int( Mod( ~Numberfield ; 10 ));
            "";
            "One "; 
            "Two "; 
            "Three "; 
            "Four "; 
            "Five "; 
            "Six "; 
            "Seven "; 
            "Eight "; 
            "Nine "
            )
        ) 
    
    &

Case(   Int( ~Numberfield ) > 1 ; 
             ~currency & "s"; 
        Int( ~Numberfield ) = 1 ;  
            ~currency ;
            ""
        )

&

If( Mod( ~Numberfield ; 1) and Int( ~Numberfield );
        " and ";
        ""
    )

    &

If( Mod( Int( ~Numberfield * 10 ); 10) = 1;
    
    Choose( Mod( Int( ~Numberfield * 100 ); 10 ); 
            "Ten "; 
            "Eleven "; 
            "Twelve ";
            "Thirteen "; 
            "Fourteen "; 
            "Fifteen "; 
            "Sixteen "; 
            "Seventeen ";
            "Eighteen "; 
            "Nineteen "
            );

    Choose( Mod( Int( ~Numberfield * 10 ) ; 10 ); 
            ""; 
            ""; 
            "Twenty "; 
            "Thirty ";
            "Forty "; 
            "Fifty "; 
            "Sixty "; 
            "Seventy "; 
            "Eighty "; 
            "Ninety "
            )

    &

    Choose( Mod( Int( ~Numberfield * 100 ) ; 10 ); 
            ""; 
            "One "; 
            "Two "; 
            "Three ";
            "Four "; 
            "Five "; 
            "Six "; 
            "Seven "; 
            "Eight "; 
            "Nine "
            )
    ) 
    
    &

Case(   Mod( ~Numberfield ; 1 ) > 1/100;  ~DecimalCurr & "s" ; 
        Mod( ~Numberfield ; 1 ) = 1/100 ; ~DecimalCurr ;
        ""
        )

)

HISTORY:
* CREATED by Don Wieland as MoneytoWords
*
* Updated Aug 10th 2006 by Tim Anderson as as MoneytoWords2
* - "Modification of Don Wieland's CF to include an 'and' after hundreds where appropriate.
* - error in formula for numbers over a million, plus now gives :
* Seven Million, Six Hundred and Fifty Four Thousand and Twenty One pounds
* rather than: Seven Million, Six Hundred and Fifty Four Thousand, Twenty One pounds
*
* Updated by Eric van Oosterom
* - added expressions "Currency" and "DecimalCurr" so that people don't have to change anything in the CF itself.
* - Enclosed the whole formula in a let statement.
* - made the code better readable.
* - renamed the CF to NumbertoWords, slightly clearer name because it can be used for other number than only for money.

Comments

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

NumbertoWords

Comments

Support this website.

Support this website.