Convert numbers to text

[kcep]

I'm trying to get FileMaker to print checks.

Example:

Amount of check: $1,359.37

For the purpose of printing the check, how do I get the amount of the check to also appear as:

One Thousand Three Hundred Fifty-nine and 37/100

Is this possible?

[Lee Smith]

This comes up from time to time. Click Here for one Thread.

HTH

Lee

[kcep]

Hi Lee,

You're going to love this one ;-)

It's working, however, here's my issue:

My number field is actually a summary field -

therefore, this is what my first calculated result is:

Six Hundred Thirty Dollars & 97.5/100

It supposed to be:

Six Hundred Thirty Dollars & 98/100

Any ideas?

[kcep]

Hi Lee,

Me again,

Forget my last reply for now. I'm experience other issues as a result of my field being a summary field.

[Lee Smith]

Use the Round Function as part of the calculation for the Number Field.

Lee

p.s. Or the components of the Sumary Field

Edited February 5, 2007 by Guest
p.s.

[kcep]

Hi Lee,

If the cents equals any of the following:

.01, .02, .03, .04, .05, .06, .07, .08, .09 the calculation yields an incorrect result.

It works if the cents = .11 through .99

Any thoughts?

[Lee Smith]

There are three different contributions at that link, and none of them did this when I tested them. Post a copy, or sample of your file, and we'll see if we can spot the problem.

Lee

[kcep]

I picked another one and it seems to be working!!! :-)

FYI - This is the one (see below) that I originally used that was giving me trouble with cents from .01 to .09

Let([

Millions=Int(Amount/1000000);

Thousands=Int((Amount-(Millions * 1000000 ))/1000);

Hundreds=Int(Mod(Amount;1000));

Cents=Round((Amount-Int(Amount))*100 +.00005; 2);

Millions Text=Choose(Int(Millions/100) ;"";"One";"Two";"Three";"Four";"Five";"Six";"Seven";"Eight";"Nine") & If(Int(Millions/100) > 0;" Hundred ";"") &

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

Choose(If(Mod(Millions;100) >= 20;Mod(Millions;10); Mod(Millions;100));""; "One " ;"Two " ;"Three " ;"Four " ;"Five " ;"Six " ;"Seven " ;"Eight ";"Nine " ;

"Ten " ;"Eleven " ;"Twelve " ;"Thirteen " ;"Fourteen " ;"Fifteen ";"Sixteen " ;

"Seventeen " ;"Eighteen " ;"Nineteen ") &

If(Millions > 0;"Million ";"");

Thousands Text=Choose(Int(Thousands/100);"";"One";"Two";"Three";"Four";"Five";"Six";

"Seven";"Eight";"Nine") & If(Int(Thousands/100) > 0;" Hundred ";"") &

Choose(Int(Mod(Thousands;100)/10);"";"";"Twenty ";"Thirty ";"Forty";"Fifty ";

"Sixty ";"Seventy ";"Eighty ";"Ninety ") &

Choose(If(Mod(Thousands;100) >= 20;Mod(Thousands;10);Mod(Thousands;100));

"";"One " ;"Two " ;"Three " ;"Four " ;"Five " ;"Six " ;"Seven " ;"Eight ";"Nine " ;

"Ten " ;"Eleven " ;"Twelve " ;"Thirteen " ;"Fourteen " ;"Fifteen ";"Sixteen " ;

"Seventeen " ;"Eighteen " ;"Nineteen ") &

If(Thousands > 0;"Thousand ";"");

Hundreds Text=Choose(Int(Hundreds/100);"";"One";"Two";"Three";"Four";"Five";"Six";

"Seven";"Eight";"Nine") & If(Int(Hundreds/100) > 0;" Hundred ";"") &

Choose(Int(Mod(Hundreds;100)/10);"";"";"Twenty ";"Thirty ";"Forty";"Fifty ";

"Sixty ";"Seventy ";"Eighty ";"Ninety ") &

Choose(If(Mod(Hundreds;100) >= 20;Mod(Hundreds;10);Mod(Hundreds;100));

"";"One " ;"Two " ;"Three " ;"Four " ;"Five " ;"Six " ;"Seven " ;"Eight ";"Nine " ;

"Ten " ;"Eleven " ;"Twelve " ;"Thirteen " ;"Fourteen " ;"Fifteen ";"Sixteen " ;

"Seventeen " ;"Eighteen " ;"Nineteen ") &

If(Amount < 1;"No Dollars"; If(Amount < 2;"Dollar";"Dollars")) & " & ";

Cents Text=Case(Mod(Cents;100) = 0; "00/100"; Mod(Cents;100) < 10; "0" & Mod(Cents;100); Mod(Cents;100) & "/100")];

Millions Text & Thousands Text & Hundreds Text & Cents Text)

[Lee Smith]

If I remember correctly, one or two of these calculations were later ammended in this thread. If was not one of these that were later ammended, then please let me know who's Reply it is, and the number (that appears next to the reply).

TIA

Lee