iZœv
Avwg ¯^vaxbZv
Avwg wK‡kvi g‡bi cošÍ we‡Kj †ejv,
Avwg mKvj muv‡S gy³ AvKv‡k wen½ RywUi †gjv;
Avwg iy‡×i Db¥y³Zv-
Avwg ¯^vaxbZv|
Avwg KwP gy‡Li wgwó nvwm, wgwó bxieZv,
Avwg mKj Kv‡RB mKj g‡bi cvIqvi e¨vKzjZv;
Avwg euvPvi AvKzjZv-
Avwg ¯^vaxbZv|
Avwg ewÂZ‡`i kZ Kvw•LZ Avkvi ¯^cœ †fjv,
Avwg we‡k¦i ey‡K D”P wk‡i `uvovevi wgjb †gjv;
Avwg Aw¯Í‡Z¡i wbðqZv-
Avwg ¯^vaxbZv|
Avwg wbcxwoZ-‡kvwlZ‡`i gy‡Li eywj,
Avwg †cuŠ‡Q †`B mK‡ji Z‡i kvwšÍi c`aywj;
Avwg ¯^w¯Íi Avek¨KZv-
Avwg ¯^vaxbZv|
Avwg `~i K‡i †`B mKj †f`-mKj eÂbv,
Avwg gy‡Q †`B me AZxZ ¯§„wZi mKj jvÃbv;
Avwg †gvPb Kwi Aax‡bi welbœZv-
Avwg ¯^vaxbZv|
Avwg be-RvMi‡Yi †mvbvjx cÖØxc-
Avwg kvwšÍi `~Z-kvwšÍi cÖZxK|
Function Ntow(amt As Variant) As Variant
ReplyDeleteDim FIGURE As Variant
Dim LENFIG As Integer
Dim i As Integer
Dim WORDs(19) As String
Dim tens(9) As String
WORDs(1) = "One"
WORDs(2) = "Two"
WORDs(3) = "Three"
WORDs(4) = "Four"
WORDs(5) = "Five"
WORDs(6) = "Six"
WORDs(7) = "Seven"
WORDs(8) = "Eight"
WORDs(9) = "Nine"
WORDs(10) = "Ten"
WORDs(11) = "Eleven"
WORDs(12) = "Twelve"
WORDs(13) = "Thirteen"
WORDs(14) = "Fourteen"
WORDs(15) = "Fifteen"
WORDs(16) = "Sixteen"
WORDs(17) = "Seventeen"
WORDs(18) = "Eighteen"
WORDs(19) = "Nineteen"
tens(2) = "Twenty"
tens(3) = "Thirty"
tens(4) = "Fourty"
tens(5) = "Fifty"
tens(6) = "Sixty"
tens(7) = "Seventy"
tens(8) = "Eighty"
tens(9) = "Ninety"
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
FIGLEN = Len(FIGURE)
If FIGLEN < 12 Then
FIGURE = Space(12 - FIGLEN) & FIGURE
End If
If Val(Left(FIGURE, 9)) > 1 Then
Ntow = "Rupees "
ElseIf Val(Left(FIGURE, 9)) = 1 Then
Ntow = "Rupee "
End If
For i = 1 To 3
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
Ntow = Ntow & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
Ntow = Ntow & tens(Val(Left(FIGURE, 1)))
Ntow = Ntow & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
If i = 1 And Val(Left(FIGURE, 2)) > 0 Then
Ntow = Ntow & " Crore "
ElseIf i = 2 And Val(Left(FIGURE, 2)) > 0 Then
Ntow = Ntow & " Lakh "
ElseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then
Ntow = Ntow & " Thousand "
End If
FIGURE = Mid(FIGURE, 3)
Next i
If Val(Left(FIGURE, 1)) > 0 Then
Ntow = Ntow & WORDs(Val(Left(FIGURE, 1))) + " Hundred "
End If
FIGURE = Mid(FIGURE, 2)
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
Ntow = Ntow & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
Ntow = Ntow & tens(Val(Left(FIGURE, 1)))
Ntow = Ntow & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
FIGURE = Mid(FIGURE, 4)
If Val(FIGURE) > 0 Then
Ntow = Ntow & " Paise "
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
Ntow = Ntow & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
Ntow = Ntow & tens(Val(Left(FIGURE, 1)))
Ntow = Ntow & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
End If
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
If Val(FIGURE) > 0 Then
Ntow = Ntow & " Only "
End If
End Function