by Samir Shelar (1 Submission)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 4th January 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This Code converts Numbers into words (upto 99 Crores) for ex: 1234 - One Thousand Two Hundred Thirty Four without using any API.
API Declarations
' following code.
VBcoders
Private Sub txtamount_Change()
Dim s, c, l, th, h, t, d As String
c = ""
l = ""
th = ""
h = ""
t = ""
d = ""
s = Str(Int(Val(txtamount.Text)))
d = (Str(Val(txtamount.Text) - Val(s)))
d = Str(Int(Val(d) * 100))
If Len(s) > 7 Then
If Len(s) = 9 Then
If Val(Left(s, 2)) = 0 Then
c = ""
Else
c = numbers(Val(Left(s, 2)))
c = c & " Crores "
End If
s = Right(s, 7)
ElseIf Len(s) = 8 Then
If Val(Left(s, 1)) = 0 Then
c = ""
Else
c = numbers(Val(Left(s, 1)))
c = c & " Crores "
End If
s = Right(s, 7)
End If
End If
If Len(s) > 5 Then
If Len(s) = 7 Then
If Val(Left(s, 2)) = 0 Then
l = ""
Else
l = numbers(Val(Left(s, 2)))
l = l & " Lakhs "
End If
s = Right(s, 5)
ElseIf Len(s) = 6 Then
If Val(Left(s, 1)) = 0 Then
l = ""
Else
l = numbers(Val(Left(s, 1)))
l = l & " Lakhs "
End If
s = Right(s, 5)
End If
End If
If Len(s) > 3 Then
If Len(s) = 5 Then
If Val(Left(s, 2)) = 0 Then
th = ""
Else
th = numbers(Val(Left(s, 2)))
th = th & " Thousand "
End If
s = Right(s, 3)
ElseIf Len(s) = 4 Then
If Val(Left(s, 1)) = 0 Then
th = ""
Else
th = numbers(Val(Left(s, 1)))
th = th & " Thousand "
End If
s = Right(s, 3)
End If
End If
If Len(s) > 2 Then
If Val(Left(s, 1)) = 0 Then
h = ""
Else
h = numbers(Val(Left(s, 1)))
h = h & " Hundred "
End If
s = Right(s, 2)
End If
If Len(s) > 0 Then
t = t & numbers(Val(s))
't = t & " Rs."
End If
If Val(d) = 0 Then
s = c & l & th & h & t & " Rs."
Else
d = numbers(Val(d))
s = c & l & th & h & t & " Rs. " & d & " Paise"
End If
txtinwords.Text = s
End Sub
Public Function numbers(i As Integer) As String
If i = 1 Then
numbers = "One"
ElseIf i = 2 Then
numbers = "Two"
ElseIf i = 3 Then
numbers = "Three"
ElseIf i = 4 Then
numbers = "Four"
ElseIf i = 5 Then
numbers = "Five"
ElseIf i = 6 Then
numbers = "Six"
ElseIf i = 7 Then
numbers = "Seven"
ElseIf i = 8 Then
numbers = "Eight"
ElseIf i = 9 Then
numbers = "Nine"
ElseIf i = 10 Then
numbers = "Ten"
ElseIf i = 11 Then
numbers = "Eleven"
ElseIf i = 12 Then
numbers = "Twelve"
ElseIf i = 13 Then
numbers = "Thirteen"
ElseIf i = 14 Then
numbers = "Fourteen"
ElseIf i = 15 Then
numbers = "Fifteen"
ElseIf i = 16 Then
numbers = "Sixteen"
ElseIf i = 17 Then
numbers = "Seventeen"
ElseIf i = 18 Then
numbers = "Eighteen"
ElseIf i = 19 Then
numbers = "Nineteen"
ElseIf i = 20 Then
numbers = "Twenty"
ElseIf i = 21 Then
numbers = "Twenty One"
ElseIf i = 22 Then
numbers = "Twenty Two"
ElseIf i = 23 Then
numbers = "Twenty Three"
ElseIf i = 24 Then
numbers = "Twenty Four"
ElseIf i = 25 Then
numbers = "Twenty Five"
ElseIf i = 26 Then
numbers = "Twenty Six"
ElseIf i = 27 Then
numbers = "Twenty Seven"
ElseIf i = 28 Then
numbers = "Twenty Eight"
ElseIf i = 29 Then
numbers = "Twenty Nine"
ElseIf i = 30 Then
numbers = "Thirty"
ElseIf i = 31 Then
numbers = "Thirty One"
ElseIf i = 32 Then
numbers = "Thirty Two"
ElseIf i = 33 Then
numbers = "Thirty Three"
ElseIf i = 34 Then
numbers = "Thirty Four"
ElseIf i = 35 Then
numbers = "Thirty Five"
ElseIf i = 36 Then
numbers = "Thirty Six"
ElseIf i = 37 Then
numbers = "Thirty Seven"
ElseIf i = 38 Then
numbers = "Thirty Eight"
ElseIf i = 39 Then
numbers = "Thirty Nine"
ElseIf i = 40 Then
numbers = "Fourty"
ElseIf i = 41 Then
numbers = "Fourty One"
ElseIf i = 42 Then
numbers = "Fourty Two"
ElseIf i = 43 Then
numbers = "Fourty Three"
ElseIf i = 44 Then
numbers = "Fourty Four"
ElseIf i = 45 Then
numbers = "Fourty Five"
ElseIf i = 46 Then
numbers = "Fourty Six"
ElseIf i = 47 Then
numbers = "Fourty Seven"
ElseIf i = 48 Then
numbers = "Fourty Eight"
ElseIf i = 49 Then
numbers = "Fourty Nine"
ElseIf i = 50 Then
numbers = "Fifty"
ElseIf i = 51 Then
numbers = "Fifty One"
ElseIf i = 52 Then
numbers = "Fifty Two"
ElseIf i = 53 Then
numbers = "Fifty Three"
ElseIf i = 54 Then
numbers = "Fifty Four"
ElseIf i = 55 Then
numbers = "Fifty Five"
ElseIf i = 56 Then
numbers = "Fifty Six"
ElseIf i = 57 Then
numbers = "Fifty Seven"
ElseIf i = 58 Then
numbers = "Fifty Eight"
ElseIf i = 59 Then
numbers = "Fifty Nine"
ElseIf i = 60 Then
numbers = "Sixty"
ElseIf i = 61 Then
numbers = "Sixty One"
ElseIf i = 62 Then
numbers = "Sixty Two"
ElseIf i = 63 Then
numbers = "Sixty Three"
ElseIf i = 64 Then
numbers = "Sixty Four"
ElseIf i = 65 Then
numbers = "Sixty Five"
ElseIf i = 66 Then
numbers = "Sixty Six"
ElseIf i = 67 Then
numbers = "Sixty Seven"
ElseIf i = 68 Then
numbers = "Sixty Eight"
ElseIf i = 69 Then
numbers = "Sixty Nine"
ElseIf i = 70 Then
numbers = "Seventy"
ElseIf i = 71 Then
numbers = "Seventy One"
ElseIf i = 72 Then
numbers = "Seventy Two"
ElseIf i = 73 Then
numbers = "Seventy Three"
ElseIf i = 74 Then
numbers = "Seventy Four"
ElseIf i = 75 Then
numbers = "Seventy Five"
ElseIf i = 76 Then
numbers = "Seventy Six"
ElseIf i = 77 Then
numbers = "Seventy Seven"
ElseIf i = 78 Then
numbers = "Seventy Eight"
ElseIf i = 79 Then
numbers = "Seventy Nine"
ElseIf i = 80 Then
numbers = "Eighty"
ElseIf i = 81 Then
numbers = "Eighty One"
ElseIf i = 82 Then
numbers = "Eighty Two"
ElseIf i = 83 Then
numbers = "Eighty Three"
ElseIf i = 84 Then
numbers = "Eighty Four"
ElseIf i = 85 Then
numbers = "Eighty Five"
ElseIf i = 86 Then
numbers = "Eighty Six"
ElseIf i = 87 Then
numbers = "Eighty Seven"
ElseIf i = 88 Then
numbers = "Eighty Eight"
ElseIf i = 89 Then
numbers = "Eighty Nine"
ElseIf i = 90 Then
numbers = "Ninety"
ElseIf i = 91 Then
numbers = "Ninety One"
ElseIf i = 92 Then
numbers = "Ninety Two"
ElseIf i = 93 Then
numbers = "Ninety Three"
ElseIf i = 94 Then
numbers = "Ninety Four"
ElseIf i = 95 Then
numbers = "Ninety Five"
ElseIf i = 96 Then
numbers = "Ninety Six"
ElseIf i = 97 Then
numbers = "Ninety Seven"
ElseIf i = 98 Then
numbers = "Ninety Eight"
ElseIf i = 99 Then
numbers = "Ninety Nine"
End If
End Function
No comments have been posted about This Code converts Numbers into words (upto 99 Crores) for ex: 1234 - One Thousand Two Hundred Thir. Why not be the first to post a comment about This Code converts Numbers into words (upto 99 Crores) for ex: 1234 - One Thousand Two Hundred Thir.