Option Explicit Function RupeesInWords(ByVal MyNumber As Double) As String Dim Rupees As String Dim Paise As String Dim Temp As String Dim DecimalPlace As Integer MyNumber = Round(MyNumber, 2) DecimalPlace = InStr(MyNumber, ".") If DecimalPlace > 0 Then Rupees = Left(MyNumber, DecimalPlace - 1) Paise = Mid(MyNumber, DecimalPlace + 1) Else Rupees = MyNumber Paise = "" End If RupeesInWords = "" If Val(Rupees) > 0 Then RupeesInWords = ConvertToWords(Rupees) & " Rupees" End If If Val(Paise) > 0 Then RupeesInWords = RupeesInWords & " and " & ConvertTwoDigits(Left(Paise & "00", 2)) & " Paise" End If RupeesInWords = Application.WorksheetFunction.Trim(RupeesInWords) & " Only" End Function Private Function ConvertToWords(ByVa...
Comments
Post a Comment