Number To Char

[BWilliams]

RE: Number To Char

Thanks very much. This is exactly what I was looking for. I found a reference to "Numeric Format Styles" in the documentation, but no reference as to accomplishing it.
Bruce Williams

[Thomas Holt]

RE: Number To Char

Hello All,

Just a short note to say a MASSIVE thanks to all who contributed to this thread, I now have a solution, very similar to Ira's function except changed 'Dollors' to 'Pounds' and 'Cents' to 'Pence. Thanks again.

Cheers
Tom

[Stan Mathews]

RE: Number To Char

Reformatted and slashes


function NumberSpell as C(numbvalue as n)

dec = (numbvalue-int(numbvalue))*100

NumberSpell=str(int(numbvalue),255,0,"XBW")+" dollars"+\
if(mod(dec,100)=0,""," and "+\
str(dec,255,0,"XBW")+" cents")

end function

[Stan Mathews]

RE: Number To Char

Reformatted

function NumberSpell as C(numbvalue as n)

dec = (numbvalue-int(numbvalue))*100

NumberSpell=str(int(numbvalue),255,0,"XBW")+" dollars"+
if(mod(dec,100)=0,""," and "+
str(dec,255,0,"XBW")+" cents")

end function

[Stan Mathews]

RE: Number To Char

Ira,

I plagirized your function and made:

function NumberSpell as C(numbvalue as n)

dec = (numbvalue-int(numbvalue))*100

NumberSpell=str(int(numbvalue),255,0,"XBW")+" dollars"+\ if(mod(dec,100)=0,""," and "+\ str(dec,255,0,"XBW")+" cents")

end function

Which sems to work, unless I'm just fooling myself.

Thanks - as always.

Stan

[csda1]

RE: Number To Char

Stan,

Oops!

Add the backslashes on the 1st two lines of the expression for continuation of the lines.


Regards,

Ira J. Perlow
Computer Systems Design & Associates
[email protected]

[csda1]

RE: Number To Char

Stan,

It's the Int() function that is giving the problem (or possibly the multiply).

Just try ?int(145.14*100) and you'll see the wrong value. It's basically the Int function checking just the high order digits. Unfortunately, if the number ends up as 14513.999999999999999 (due to binary arithemetic issues), it doesn't have the smarts to check that it's just a rounding error. Here are 2 other ways to do it;


function NumberSpell as C(numbvalue as n)

NumberSpell=str(int(numbvalue),255,0,"XBW")+" dollars"+
if( val(right(str(numbvalue,15,2),2))=0,""," and "+
str(val(right(str(numbvalue,15,2),2)),255,0,"XBW")+" cents")

end function


function NumberSpell as C(numbvalue as n)

NumberSpell=str(int(numbvalue),255,0,"XBW")+" dollars"+
if( mod(int(numbvalue*100+.000000000001),100)=0,""," and "+
str(mod(int(numbvalue*100+.000000000001),100),255,0,"XBW")+" cents")

end function

Regards,

Ira J. Perlow
Computer Systems Design & Associates
[email protected]

[Stan Mathews]

RE: Number To Char

Ira,

I know you're throwing this out as a freebie so I'm not complaining, but here are the results from the interactive editor:

test = 145
? numberspell(test)
= "One Hundred Forty Five dollars"

for i = .01 to .99 step .01;? numberspell(test+i);next
One Hundred Forty Five dollars and One cents
One Hundred Forty Five dollars and Two cents
One Hundred Forty Five dollars and Three cents
One Hundred Forty Five dollars and Four cents
One Hundred Forty Five dollars and Five cents
One Hundred Forty Five dollars and Six cents
One Hundred Forty Five dollars and Seven cents
One Hundred Forty Five dollars and Eight cents
One Hundred Forty Five dollars and Nine cents
One Hundred Forty Five dollars and Ten cents
One Hundred Forty Five dollars and Eleven cents
One Hundred Forty Five dollars and Twelve cents
One Hundred Forty Five dollars and Thirteen cents
One Hundred Forty Five dollars and Thirteen cents
One Hundred Forty Five dollars and Fifteen cents
One Hundred Forty Five dollars and Sixteen cents
One Hundred Forty Five dollars and Sixteen cents
One Hundred Forty Five dollars and Eighteen cents
One Hundred Forty Five dollars and Nineteen cents
One Hundred Forty Five dollars and Nineteen cents
One Hundred Forty Five dollars and Twenty One cents
One Hundred Forty Five dollars and Twenty Two cents
One Hundred Forty Five dollars and Twenty Two cents
One Hundred Forty Five dollars and Twenty Four cents
One Hundred Forty Five dollars and Twenty Five cents
One Hundred Forty Five dollars and Twenty Six cents
One Hundred Forty Five dollars and Twenty Seven cents
One Hundred Forty Five dollars and Twenty Eight cents
One Hundred Forty Five dollars and Twenty Nine cents
One Hundred Forty Five dollars and Thirty cents
One Hundred Forty Five dollars and Thirty One cents
One Hundred Forty Five dollars and Thirty Two cents
One Hundred Forty Five dollars and Thirty Three cents
One Hundred Forty Five dollars and Thirty Four cents
One Hundred Forty Five dollars and Thirty Five cents
One Hundred Forty Five dollars and Thirty Six cents
One Hundred Forty Five dollars and Thirty Seven cents
One Hundred Forty Five dollars and Thirty Eight cents
One Hundred Forty Five dollars and Thirty Eight cents
One Hundred Forty Five dollars and Forty cents
One Hundred Forty Five dollars and Forty One cents
One Hundred Forty Five dollars and Forty One cents
One Hundred Forty Five dollars and Forty Three cents
One Hundred Forty Five dollars and Forty Four cents
One Hundred Forty Five dollars and Forty Four cents
One Hundred Forty Five dollars and Forty Six cents
One Hundred Forty Five dollars and Forty Seven cents
One Hundred Forty Five dollars and Forty Seven cents
One Hundred Forty Five dollars and Forty Nine cents
One Hundred Forty Five dollars and Fifty cents
One Hundred Forty Five dollars and Fifty One cents
One Hundred Forty Five dollars and Fifty Two cents
One Hundred Forty Five dollars and Fifty Three cents
One Hundred Forty Five dollars and Fifty Four cents
One Hundred Forty Five dollars and Fifty Five cents
One Hundred Forty Five dollars and Fifty Six cents
One Hundred Forty Five dollars and Fifty Seven cents
One Hundred Forty Five dollars and Fifty Eight cents
One Hundred Forty Five dollars and Fifty Nine cents
One Hundred Forty Five dollars and Sixty cents
One Hundred Forty Five dollars and Sixty One cents
One Hundred Forty Five dollars and Sixty Two cents
One Hundred Forty Five dollars and Sixty Three cents
One Hundred Forty Five dollars and Sixty Three cents
One Hundred Forty Five dollars and Sixty Five cents
One Hundred Forty Five dollars and Sixty Six cents
One Hundred Forty Five dollars and Sixty Six cents
One Hundred Forty Five dollars and Sixty Eight cents
One Hundred Forty Five dollars and Sixty Nine cents
One Hundred Forty Five dollars and Sixty Nine cents
One Hundred Forty Five dollars and Seventy One cents
One Hundred Forty Five dollars and Seventy Two cents
One Hundred Forty Five dollars and Seventy Two cents
One Hundred Forty Five dollars and Seventy Four cents
One Hundred Forty Five dollars and Seventy Five cents
One Hundred Forty Five dollars and Seventy Six cents
One Hundred Forty Five dollars and Seventy Seven cents
One Hundred Forty Five dollars and Seventy Eight cents
One Hundred Forty Five dollars and Seventy Nine cents
One Hundred Forty Five dollars and Eighty cents
One Hundred Forty Five dollars and Eighty One cents
One Hundred Forty Five dollars and Eighty Two cents
One Hundred Forty Five dollars and Eighty Three cents
One Hundred Forty Five dollars and Eighty Four cents
One Hundred Forty Five dollars and Eighty Five cents
One Hundred Forty Five dollars and Eighty Six cents
One Hundred Forty Five dollars and Eighty Seven cents
One Hundred Forty Five dollars and Eighty Eight cents
One Hundred Forty Five dollars and Eighty Eight cents
One Hundred Forty Five dollars and Ninety cents
One Hundred Forty Five dollars and Ninety One cents
One Hundred Forty Five dollars and Ninety One cents
One Hundred Forty Five dollars and Ninety Three cents
One Hundred Forty Five dollars and Ninety Four cents
One Hundred Forty Five dollars and Ninety Four cents
One Hundred Forty Five dollars and Ninety Six cents
One Hundred Forty Five dollars and Ninety Seven cents
One Hundred Forty Five dollars and Ninety Seven cents

[Stan Mathews]

RE: Number To Char

Or your amount value may reallly be character field based, even though it's all digits.

[Stan Mathews]

RE: Number To Char

Works fine for me.

Try cut and paste with this

NumberSpell=str(int(numbvalue),255,0,"XBW")+" dollars"+\
if(mod(int(numbvalue*100),100)=0,""," and "+\
str(mod(int(numbvalue*100),100),255,0,"XBW")+" cents")

[Thomas Holt]

RE: Number To Char

Thanks Ira and Charlie,

Unfortunately I can't get Ira's function to operate. I have created the function and am trying to call it in a report, using the numeric field 'amount'. Numberspell(amount) when I try to evaluate this I get an "arguement is incorrect data type" error message. I have checked the function and Alpha says it has no errors.
Sorry to be a pain, but I feel so close I would like to achieve my goal.

Many thanks to all who have taken the time to respond to this thread.
Cheers
Tom

[csda1]

RE: Number To Char

Ron,

You are correct, it must be done by separating out the values. A function example is;

function NumberSpell as C(numbvalue as n)

NumberSpell=str(int(numbvalue),255,0,"XBW")+" dollars"+|
if(mod(int(numbvalue*100),100)=0,""," and "+|
str(mod(int(numbvalue*100),100),255,0,"XBW")+" cents")

end function

(The 2 vertical bars are the backslash line continuation character. Change them back to backslashes)

Regards,

Ira J. Perlow
Computer Systems Design & Associates
[email protected]

[crimmelcp]

RE: Number To Char

Thomas:
here is a sample application.
it actually calculates peoples ages but I added down in the lower left corner of the customer screen 2 fields to do what you wanted.
type the number in the top field (lower left corner)and then save the record
the bottom field then displays the number as text.
I use this to print checks in a payroll program.
Both are numeric fields
the second one just displays as text
display,right click on field, properties,format
look at the bottom for the display types. (the drop down scrool bar has more than what you initially see)
hope it helps
Charlie Crimmel

[Thomas Holt]

RE: Number To Char

Thanks To Ron and Ira

Apologies for being a bit slow on the uptake. The function outlined by Ira is ideal for this situation, however if I include 2 decimal places, the function will show a fraction say - 25/100. How can I get this to show as .25.

Any help as always greatly appreciated.

Cheers
Tom

RE: Number To Char

Thanks

I phrased ny question incorrectly, i meant how do i get the decimal part as words, i guess i have to parse the input and make two calls/

Ron