http://support.microsoft.c

Solved

Posted on 2006-03-30

Hi Experts! does anybody have a code in converting figures in amount in words? I need it badly!

10 Comments

http://support.microsoft.c

here is algorithm:

http://www.vb-helper.com/H

If you don't get along with VB - open frm file with text editor.

Hope this helps,

Marko

Print SpellNumber(1111)

to see that it works.

Grrrrr, the code Sjef suggested just needed one correction:

line 10 of SpellNumber previously looked like this:

MyNumber = Trim(Str(MyNumber))

Paste the code in the new Script library, which you'll use in the place where you need it.

The correct thing here would be 500 pts (not for me).

The working version:

Option Explicit

'Main Function

Function SpellNumber(ByVal MyNumber)

Dim Dollars, Cents, Temp

Dim DecimalPlace, Count

ReDim Place(9) As String

Place(2) = " Thousand "

Place(3) = " Million "

Place(4) = " Billion "

Place(5) = " Trillion "

' String representation of amount.

MyNumber = Trim(CStr(MyNumber))

' Position of decimal place 0 if none.

DecimalPlace = InStr(MyNumber, ".")

' Convert cents and set MyNumber to dollar amount.

If DecimalPlace > 0 Then

Cents = GetTens(Left(Mid(MyNumber,

"00", 2))

MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))

End If

Count = 1

Do While MyNumber <> ""

Temp = GetHundreds(Right(MyNumber

If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars

If Len(MyNumber) > 3 Then

MyNumber = Left(MyNumber, Len(MyNumber) - 3)

Else

MyNumber = ""

End If

Count = Count + 1

Loop

Select Case Dollars

Case ""

Dollars = "No Dollars"

Case "One"

Dollars = "One Dollar"

Case Else

Dollars = Dollars & " Dollars"

End Select

Select Case Cents

Case ""

Cents = " and No Cents"

Case "One"

Cents = " and One Cent"

Case Else

Cents = " and " & Cents & " Cents"

End Select

SpellNumber = Dollars & Cents

End Function

' Converts a number from 100-999 into text

Function GetHundreds(ByVal MyNumber)

Dim Result As String

If Val(MyNumber) = 0 Then Exit Function

MyNumber = Right("000" & MyNumber, 3)

' Convert the hundreds place.

If Mid(MyNumber, 1, 1) <> "0" Then

Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "

End If

' Convert the tens and ones place.

If Mid(MyNumber, 2, 1) <> "0" Then

Result = Result & GetTens(Mid(MyNumber, 2))

Else

Result = Result & GetDigit(Mid(MyNumber, 3))

End If

GetHundreds = Result

End Function

' Converts a number from 10 to 99 into text.

Function GetTens(TensText)

Dim Result As String

Result = "" ' Null out the temporary function value.

If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...

Select Case Val(TensText)

Case 10: Result = "Ten"

Case 11: Result = "Eleven"

Case 12: Result = "Twelve"

Case 13: Result = "Thirteen"

Case 14: Result = "Fourteen"

Case 15: Result = "Fifteen"

Case 16: Result = "Sixteen"

Case 17: Result = "Seventeen"

Case 18: Result = "Eighteen"

Case 19: Result = "Nineteen"

Case Else

End Select

Else ' If value between 20-99...

Select Case Val(Left(TensText, 1))

Case 2: Result = "Twenty "

Case 3: Result = "Thirty "

Case 4: Result = "Forty "

Case 5: Result = "Fifty "

Case 6: Result = "Sixty "

Case 7: Result = "Seventy "

Case 8: Result = "Eighty "

Case 9: Result = "Ninety "

Case Else

End Select

Result = Result & GetDigit _

(Right(TensText, 1)) ' Retrieve ones place.

End If

GetTens = Result

End Function

' Converts a number from 1 to 9 into text.

Function GetDigit(Digit)

Select Case Val(Digit)

Case 1: GetDigit = "One"

Case 2: GetDigit = "Two"

Case 3: GetDigit = "Three"

Case 4: GetDigit = "Four"

Case 5: GetDigit = "Five"

Case 6: GetDigit = "Six"

Case 7: GetDigit = "Seven"

Case 8: GetDigit = "Eight"

Case 9: GetDigit = "Nine"

Case Else: GetDigit = ""

End Select

End Function

Hope this helps,

Marko

> Grrrrr, the code Sjef suggested just needed one correction:

> line 10 of SpellNumber previously looked like this:

> MyNumber = Trim(Str(MyNumber))

Huh?? Please explain why CStr is better than Str... Or does the leading space worry you? That's what the Trim is for, I suppose :)

So, if

MyNumber = Trim(Str(MyNumber))

is wrong, then

MyNumber = Trim(CStr(MyNumber))

is even wronger, since only

MyNumber = CStr(MyNumber)

would be correct...

emem, the original code will do just fine :)

Str must receive the numeric expression as argument, while CStr can receive string.

If you pass the field's value to the function as string (what is likely to happen) the Type mismatch error will ocur.

I could've changed the signature of the function (integer or currency instead of Variant), but this was simpler and excepts a wider range of types.

Marko

Title | # Comments | Views | Activity |
---|---|---|---|

Compose new document with values from selected doc using LotusScript | 36 | 232 | |

Lotus Notes restore mail problem | 5 | 586 | |

Lotus Notes - Broken Links report | 5 | 182 | |

Permanent Lotus Notes Connection for all users in a Domino Domain | 15 | 100 |

Join the community of 500,000 technology professionals and ask your questions.

Connect with top rated Experts

**17** Experts available now in Live!