i am having a webpage,in that webpage the total salary is 19563,but in words it shows "Twenty Thousands Six Hundreds Sixty Three",i dont no how to do this...can you pls help me...what changes i want to do.this is my code
Dim num As Integer
num = lblnetsal.Text
Label2.Text = NumberToWords(num)
End Sub
Public Shared Function NumberToWords(ByVal num As Integer) As String
If num < 0 Then
Return "Minus " + NumberToWords(-num)
ElseIf num = 0 Then
Return ""
ElseIf num <= 19 Then
Return New String() {"One", "Two", "Three", "Four", "Five", "Six", _
"Seven", "Eight", "Nine", "Ten", "Eleven", "Twelve", _
"Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", _
"Nineteen"}(num - 1) + " "
ElseIf num <= 99 Then
Return New String() {"Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", _
"Eighty", "Ninety"}(num / 10 - 2) + " " + NumberToWords(num Mod 10)
ElseIf num <= 199 Then
Return "One Hundred " + NumberToWords(num Mod 100)
ElseIf num <= 999 Then
Return NumberToWords(num / 100) + "Hundreds " + NumberToWords(num Mod 100)
ElseIf num <= 1999 Then
Return "One Thousand " + NumberToWords(num Mod 1000)
ElseIf num <= 999999 Then
Return NumberToWords(num / 1000) + "Thousands " + NumberToWords(num Mod 1000)
ElseIf num <= 1999999 Then
Return "One Million " + NumberToWords(num Mod 1000000)
Else
Return String.Empty
End If
end function