• Home
 · 
• Math/Dates
 · 
• To Convert Amount in Figures To Words

To Convert Amount in Figures To Words

To Convert Amount in Figures To Words

API Declarations



Dim str As String
Dim str1 As String




Rate To Convert Amount in Figures To Words

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim u, ps As Integer
Dim t As Integer
Dim h As Integer
Dim tt As Double
Dim l As Double
Dim tl As Double
str1 = ""
alt = InStr(1, i, ".", vbTextCompare)
nnn = Len(i) - alt
ps = Mid(i, alt + 1, nnn)
If alt <> 0 Then
If ps <> 0 Then
 If ps > 20 Then
    ps2 = Int(ps Mod 10)
    ps1 = Int(ps - ps2)
    rsinwords Int(ps2)
    str1 = str & str1
    rsinwords Int(ps1)
    str1 = " And Paise" & str & str1
 Else
    rsinwords Int(ps)
    str1 = " And Paise" & str & str1
 End If
End If
End If

If Int(i) = 0 Then
str1 = " Nil"
GoTo r:
End If

u = Int(i) Mod 100
If u <> 0 Then
 If u > 20 Then
    u2 = Int(u Mod 10)
    u1 = Int(u - u2)
    rsinwords Int(u2)
    str1 = str & str1
    rsinwords Int(u1)
    str1 = str & str1
 Else
    rsinwords Int(u)
    str1 = str & str1
    End If
Else
'str1 = " Nil" & str1
End If


h1 = Int(i Mod 1000)
h1 = Int(h1 / 100)
If h1 <> 0 Then
rsinwords Int(h1)
str1 = str & " Hundred" & str1
End If

tt = Int(i Mod 100000)
tt = Int(tt / 1000)
If tt <> 0 Then
 If tt > 20 Then
    tt2 = Int(tt Mod 10)
    tt1 = Int(tt - tt2)
    rsinwords Int(tt2)
    str1 = str & " Thousand" & str1
    rsinwords Int(tt1)
    str1 = str & str1
Else
    rsinwords Int(tt)
    str1 = str & " Thousand" & str1
End If
End If

tl = Int(i Mod 10000000)
tl = Int(tl / 100000)
If tl <> 0 Then
 If tl > 20 Then
    tl2 = Int(tl Mod 10)
    tl1 = Int(tl - tl2)
    rsinwords Int(tl2)
    str1 = str & " Lakh" & str1
    rsinwords Int(tl1)
    str1 = str & str1
Else
    rsinwords Int(tl)
    str1 = str & " Lakh" & str1
End If
End If

tc = Int(i Mod 1000000000)
tc = Int(tc / 10000000)
If tc <> 0 Then
 If tc > 20 Then
    tc2 = Int(tc Mod 10)
    tc1 = Int(tc - tc2)
    rsinwords Int(tc2)
    str1 = str & " Crore" & str1
    rsinwords Int(tc1)
    str1 = str & str1
Else
    rsinwords Int(tc)
    str1 = str & " Crore" & str1
End If
End If

r:
MsgBox "Rupees" & str1 & " Only"
str1 = ""
str = ""
End Sub

Public Function rsinwords(rs As Integer)
Select Case (rs)
Case 1
    str = " One"
Case 2
    str = " Two"
Case 3
    str = " Three"
Case 4
    str = " Four"
Case 5
    str = " Five"
Case 6
    str = " Six"
Case 7
    str = " Seven"
Case 8
    str = " Eight"
Case 9
    str = " Nine"
Case 10
    str = " Ten"
Case 11
    str = " Eleven"
Case 12
    str = " Twelve"
Case 13
    str = " Thirteen"
Case 14
    str = " Fourteen"
Case 15
    str = " Fifteen"
Case 16
    str = " Sixteen"
Case 17
    str = " Seventeen"
Case 18
    str = " Eighteen"
Case 19
    str = " Nineteen"
Case 20
    str = " Twenty"
Case 30
    str = " Thirty"
Case 40
    str = " Forty"
Case 50
    str = " Fifty"
Case 60
    str = " Sixty"
Case 70
    str = " Seventy"
Case 80
    str = " Eighty"
Case 90
    str = " Ninety"
End Select
End Function