Convert Amount in to Words

[CoderNitai]

Dim vNumber As Double


Function NumberToWords(B yVal 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(v Number Mod 10, True)

Case 100 To 999

NumberToWords = NumberToWords(v Number \ 100) & "Hundred " & IIf _
(Number >= 200, "", "") & NumberToWords(N umber Mod 100, True)

Case 1000 To 99999

NumberToWords = NumberToWords(v Number \ 1000) & "Thousand " & IIf _
(Number >= 2000, " ", "") & NumberToWords(v Number Mod 1000, True)

Case 100000 To 9999999

NumberToWords = NumberToWords(v Number \ 100000) & "Lakh " & IIf _
(Number >= 200000, " ", "") & NumberToWords(v Number Mod 100000, True)


Case 10000000 To 999999999

NumberToWords = NumberToWords(v Number \ 10000000) & "Crore " & IIf _
(Number >= 20000000, " ", "") & NumberToWords(v Number Mod 10000000, _
True)

End Select



End Function


v_A2w = UCase(NumberToW ords(RS("Inv_Pa yamt") ) & "Rupees Only.")