Dim vNumber As Double
Function NumberToWords(ByVal vNumber As Long, Optional BlankIfZero As Boolean) As String
Select Case Number
Case 0
NumberToWords = IIf(BlankIfZero, "", "Zero")
Case 1 To 19
NumberToWords = Choose(vNumber, "One ", "Two ", "Three ", "Four ", _
"Five ", "Six ", "Seven ", "Eight ", "Nine ", "Ten ", "Eleven ", _
"Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", _
"Seventeen ", "Eighteen ", "Nineteen ")
Case 20 To 99
NumberToWords = Choose(vNumber \ 10 - 1, "Twenty ", "Thirty ", _
"Fourty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", _
"Ninety ") & NumberToWords(vNumber Mod 10, True)
Case 100 To 999
NumberToWords = NumberToWords(vNumber \ 100) & "Hundred " & IIf _
(Number >= 200, "", "") & NumberToWords(Number Mod 100, True)
Case 1000 To 99999
NumberToWords = NumberToWords(vNumber \ 1000) & "Thousand " & IIf _
(Number >= 2000, " ", "") & NumberToWords(vNumber Mod 1000, True)
Case 100000 To 9999999
NumberToWords = NumberToWords(vNumber \ 100000) & "Lakh " & IIf _
(Number >= 200000, " ", "") & NumberToWords(vNumber Mod 100000, True)
Case 10000000 To 999999999
NumberToWords = NumberToWords(vNumber \ 10000000) & "Crore " & IIf _
(Number >= 20000000, " ", "") & NumberToWords(vNumber Mod 10000000, _
True)
End Select
End Function
v_A2w = UCase(NumberToWords(RS("Inv_Payamt") ) & "Rupees Only.")