Numbers to Words

[learning_kid]

hey

I have excel userform which I can make Invoice.

When I Calculate, I need the total amount to be Words.
Whole amount is converted to words except the decimal.

I need the decimal also to be in words.

Please Help me.

Regards
Kid

[WoF]

It seems, all the tools are already present in your worksheet.
The function SpellNumber() in module amntWords seems to do exactly what you require, provided you have "." as a decimal separator.

Only that some mischieveous mind has commented out a valuable statement.
Look into the module amntWords.
Examine the
Function SpellNumber(ByVal MyNumber)
The very last line before End Function is
SpellNumber = SAR '& Cents
somebody has commented out the & Cents. It must be:
SpellNumber = SAR & Cents

[dglienna]

That would be the teacher, I'd bet...

[learning_kid]

Hello Sir,

After alteration as per your advise, Still my file doesn't shows decimal in words.

Is it working on your PC? If it is working, Is there any settings I need to change in my
computer?

Could you please help me.

Regards
Kid

[WoF]

@David: Possibly.

It works on my computer.
I just go to some empty cell and enter =spellnumber(123.45) and press enter.
The cell would then show One Hundred Twenty ThreeForty Five

Come to look at it, we would have to insert the word "Point" at where the decimal point is.
We'd modify the statement where the Cents variable is loaded:

    If DecimalPlace > 0 Then
        Cents = "Point " & GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
                  "00", 2))

It would then say One Hundred Twenty Three Point Forty Five

[dglienna]

and 45/100 (or else 00/100)

[dglienna]

Two-Thousand Four-Hundred Ninety-Five and 45/100 (or else 00/100)

This is how checks should be written

[DataMiser]

We'd modify the statement where the Cents variable is loaded:

    If DecimalPlace > 0 Then
        Cents = "Point " & GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
                  "00", 2))

It would then say One Hundred Twenty Three Point Forty Five

Curious as to why you used Left() in the code above?

 
If DecimalPlace > 0 Then
        Cents = "Point " & GetTens(Mid(MyNumber & "00", DecimalPlace + 1,2)

Would do the same thing without the additional function call.

[WoF]

That's right. Well spotted. That line of code has been part of the original code. I didn't notice.
Surely a Mid$() is all you need there.