FileMaker Pro Custom Functions

/* 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 ) )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.