heeeeeeeeeeeeeeelp!

[obkfixx]

help please.. i need to get a number converted into words.. for example
100 = one hundred .. 10 = ten.... 1000 = one thousand.....

could u give me a vb built in function for this? or a code??

[anuragshrivastava64]

Bit Lengthy but works

Public Function Num2Word(ByVal txtnumber As String)
    Dim dblNumber As Double
    Dim strNumber As String
    Dim intLen As Integer
    Dim strTemp As String, strTemp1 As String, strTemp2 As String
    Dim strOut As String
    Dim i As Integer
    Dim Ones(0 To 19) As String
    Dim Tens(0 To 9) As String
    Dim PValue(1 To 6) As String
    If val(txtnumber) < 0 Then
        Num2Word = ""
        Exit Function
    End If
    Ones(0) = ""
    Ones(1) = "One "
    Ones(2) = "Two "
    Ones(3) = "Three "
    Ones(4) = "Four "
    Ones(5) = "Five "
    Ones(6) = "Six "
    Ones(7) = "Seven "
    Ones(8) = "Eight "
    Ones(9) = "Nine "
    Ones(10) = "Ten "
    Ones(11) = "Eleven "
    Ones(12) = "Twelve "
    Ones(13) = "Thirteen "
    Ones(14) = "Fourteen "
    Ones(15) = "Fifteen "
    Ones(16) = "Sixteen "
    Ones(17) = "Seventeen "
    Ones(18) = "Eighteen "
    Ones(19) = "Nineteen "
 
    Tens(0) = ""
    Tens(1) = "Ten "
    Tens(2) = "Twenty "
    Tens(3) = "Thirty "
    Tens(4) = "Forty "
    Tens(5) = "Fifty "
    Tens(6) = "Sixty "
    Tens(7) = "Seventy "
    Tens(8) = "Eighty "
    Tens(9) = "Ninety "
 
    PValue(6) = "Crore "
    PValue(5) = "Lakh "
    PValue(4) = "Thousand "
    PValue(3) = "Hundred "
    PValue(2) = ""
    PValue(1) = ""
 
    If txtnumber = "" Then
        Exit Function
    End If
 
    dblNumber = val(txtnumber) * 100
    strNumber = CStr(dblNumber)
    intLen = Len(strNumber)
 
    If intLen > 5 Then
        strNumber = Left(strNumber, intLen - 5) + "0" + right(strNumber, 5)
        intLen = intLen + 1
    End If
 
    If intLen Mod 2 = 1 Then
        strNumber = "0" + strNumber
        intLen = intLen + 1
    End If
 
    strOut = ""
    For i = 1 To intLen Step 2
        strTemp = Mid(strNumber, i, 2)
        If strTemp <> "00" Then
            If (intLen - i + 1) / 2 = 1 Then
                strOut = strOut + IIf(dblNumber - Int(dblNumber) > 0, " And Paise ", " And Paise ")
            End If
            If val(strTemp) < 20 Then
                strOut = strOut + Ones(val(strTemp))
            Else
                strTemp1 = Left(strTemp, 1)
                strTemp2 = right(strTemp, 1)
                strOut = strOut + Tens(val(strTemp1)) + Ones(val(strTemp2))
            End If
            strOut = strOut + PValue((intLen - i + 1) / 2)
        End If
    Next
    Num2Word = strOut
End Function

[debasisdas]

You can easily get it done if using Oracle at database level itself.