hello!
is there any body to help me.
i want to know the codes of converting number to words...
pls help me to do it.

You need to convert 10 to "10"?
Or you want to convert 65 to "A"?

First case, use "C" functions - CStr, CInt, CLng, CBool... -, to convert any type to the type specified in function name. This cNum = CStr(nValor) puts the integer value of nValor variable in the cNum string variable, in format of a string.

Second case, use CHR (to convert from number to letter) or ASC (to convert from letter to number) functions, both uses ASCII table for converting.


Please, be more specific when you ask for help; if possible, uses examples.


Sidnei

sidnei, I believe quick is wanting to convert 1,234.56 to One thousand two hundred thirty four and fifty six or ... four dollars and fifty six cents...

So quick, I suggest you use your friends (yahoo, google, ask, answers, bing) and search for vb6 convert number to words or if I remember correctly, search this forum for those keywords as I believe just a month or so ago someone posted the solution you are looking for...

Good Luck

if you convert 10 to 'ten' then try this
No declarations at all.
1. Create a form and add two textboxes; TextBox1 and TextBox2
2. Add a command button; CommandButton1
3. Copy the code below to the code window.
4. Run the program, enter the number in TextBox1 and click CommandButton1...

Function Getword(strNumber)
Dim strtemp As String
Dim x, y, z As Integer
x = Val(Mid$(strNumber, 1, 1))
y = Val(Mid$(strNumber, 2, 1))
z = Val(Mid$(strNumber, 3, 1))

If Len(strNumber) = 1 Then
        strtemp = strtemp + Whole(Val(strNumber))
        GoTo 20
ElseIf Len(strNumber) = 2 Then
        If x = 1 And y = 0 Then
                strtemp = strtemp + " Ten"
        ElseIf x = 1 And y = 1 Then
                strtemp = strtemp + " Eleven"
                GoTo 20
        ElseIf x = 1 And y = 2 Then
                strtemp = strtemp + " Twelve"
                GoTo 20
        ElseIf x = 1 And y > 2 Then
                strtemp = strtemp + Whole2(y) + "een"
                GoTo 20
        ElseIf x = 0 And y > 0 Then
                strtemp = strtemp + Whole(y)
                GoTo 20
        ElseIf x = 0 And y = 0 Then
                strtemp = ""
                GoTo 20
        Else
                strtemp = Whole2(x) + "y"
                If y > 0 Then strtemp = strtemp + Whole(y)
                GoTo 20
        End If
        
ElseIf Len(strNumber) = 3 Then

        If x > 0 Then strtemp = strtemp + Whole(x) + " Hundred"
        If y = 1 And z > 2 Then
               strtemp = strtemp + Whole2(z) + "een"
               GoTo 20
        ElseIf y = 1 And z = 1 Then
                strtemp = strtemp + " Eleven"
                GoTo 20
        ElseIf y = 1 And z = 2 Then
                strtemp = strtemp + " Twelve"
                GoTo 20
        ElseIf y = 1 And z = 0 Then
                strtemp = strtemp + " Ten"
                GoTo 20
        ElseIf x = 0 And y = 0 And z = 0 Then
                strtemp = ""
                GoTo 20
        Else
        End If
        If y > 0 Then strtemp = strtemp + Whole2(y) + "y"
        If z > 0 Then strtemp = strtemp + Whole(z)
End If
20 Getword = strtemp

End Function

Function Whole(ByVal x As Integer)
    Select Case x
    Case Is = 9
    Whole = " Nine"
    Case 8
    Whole = " Eight"
    Case 7
    Whole = " Seven"
    Case 6
    Whole = " Six"
    Case 5
    Whole = " Five"
    Case 4
    Whole = " Four"
    Case 3
    Whole = " Three"
    Case 2
    Whole = " Two"
    Case 1
    Whole = " One"
    End Select
End Function

Function Whole2(ByVal x As Integer)
    Select Case x
    Case Is = 9
    Whole2 = " Ninet"
    Case 8
    Whole2 = " Eight"
    Case 7
    Whole2 = " Sevent"
    Case 6
    Whole2 = " Sixt"
    Case 5
    Whole2 = " Fift"
    Case 4
    Whole2 = " Fourt"
    Case 3
    Whole2 = " Thirt"
    Case 2
    Whole2 = " Twent"
    End Select
End Function

Private Sub CommandButton1_Click()
Dim bigstrNumber(11)
Dim strAdd As String
Dim strNumber As String
Dim strtemp As String
TextBox1 = Abs(Int(TextBox1))
strNumber = TextBox1.Text
TextBox2 = ""
  bigstrNumber(0) = ""
  bigstrNumber(1) = " Thousand"
  bigstrNumber(2) = " Million"
  bigstrNumber(3) = " Billion"
  bigstrNumber(4) = " Trillion"
  bigstrNumber(5) = " Quadrillion"
  bigstrNumber(6) = " Pentillion"
  bigstrNumber(7) = " Hexillion"
  bigstrNumber(8) = " Qentillion"
  bigstrNumber(9) = " Octillion"
  bigstrNumber(10) = " Nonillion"
  bigstrNumber(11) = " Decillion"

If Len(strNumber) > 3 Then
  Do While i < 36
   m = m + 1
   i = i + 3
   If i >= Len(strNumber) Then Exit Do
  Loop
  c = i - Len(strNumber)
  If c > 0 Then
        For D = 1 To c
                strAdd = strAdd + "0"
        Next D
  Else
  End If
  strNumber = strAdd + strNumber
  k = 1
  For i = 1 To m
        TextBox2 = TextBox2 & Getword(Mid$(strNumber, k, 3))
        If Mid$(strNumber, k, 3) <> "000" Then TextBox2 = TextBox2 & bigstrNumber(m - i)
        k = k + 3
  Next i
Else
End If
TextBox2 = Trim$(TextBox2 & Getword(strNumber))
TextBox1 = Format$(TextBox1, "###,###,###,###,###,###,###,###,###,###,###,###")
End Sub
Comments
I hope you get a good grade for doing Quicka's project. Think you'll pass?

if you convert 10 to 'ten' then try this
No declarations at all.
1. Create a form and add two textboxes; TextBox1 and TextBox2
2. Add a command button; CommandButton1
3. Copy the code below to the code window.
4. Run the program, enter the number in TextBox1 and click CommandButton1..

What are they going to learn turning in your program? And don't tell me "they use it for a pattern for their own code" -- you know that doesn't happen much. And even so, we help people write their own code, we don't give handouts. Handouts they can get from Google.

After 600+ posts you should know all this.

What are they going to learn turning in your program? And don't tell me "they use it for a pattern for their own code" -- you know that doesn't happen much. And even so, we help people write their own code, we don't give handouts. Handouts they can get from Google.

After 600+ posts you should know all this.

I only try this. but I don't know................what I did for my reputation. thanks.

hi ive got the same problem i tried the codes u gave but when i run the prog i get no response

where exactly do i code coz i coded in command1


thanks

hello!
is there any body to help me.
i want to know the codes of converting number to words...
pls help me to do it.

Dibyendu Goswami ( [email]email snipped[/email])
I send you this link . I think your Problem will be solved
link snipped

Edited 6 Years Ago by WaltP: Do not post email addresses on forums, Keep answers on this site as per The Rules

This article has been dead for over six months. Start a new discussion instead.