Convert Indian Rupees Into Words

Category:

Miscellaneous

Type:

Modules

Difficulty:

Beginning

Author:

Bharat Modha

Version Compatibility: Visual Basic 6, Visual Basic 5, Visual Basic.NET

More information:

Please find the text file containing a fuction "RupeesToWord", which is useful to convert Indian Rupees Currency into Words. There is no specific function on any website to do the same. The above function can convert Indian Rupees Currency into Hundred, Thousand, Lacks, Crore, Arab, Nil, Kanth....etc. So, it is truly useful for any software created for Indian People. Just copy the all function "RupeesToWord" in VB Module and use it in your program. How To Use :- Text1.text=10500.50 RupeesToWord(Text1.text) RESULT = Rupees Ten Thousand Five Hundred and Fifty Paisa Only Now Enjoy It.....But, dont forget to give me credit .. Thanking you, Best Regards, (Bharat Modha) Mobile No. : +919879607202 Porbandar (Gujarat) - India bharatmodha@yahoo.com

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

' Function for conversion of a Indian Rupees to words
'   Parameter - accept a Currency
'   Returns the number in words format
'====================================================
' Original Code Created By Mr. P. K. Agarwal (Having Lot of Errors)
'****************************************************
' Code Modified by Bharat Modha - Porbandar (Gujarat)
' Email : bharatmodha@yahoo.com
'****************************************************

Function RupeesToWord(ByVal MyNumber)
   Dim Temp
   Dim Rupees, Paisa As String
   Dim DecimalPlace, iCount
   Dim Hundreds, Words As String
   ReDim place(9) As String
   place(0) = " Thousand "
   place(2) = " Lakh "
   place(4) = " Crore "
   place(6) = " Arab "
   place(8) = " Kharab "
   On Error Resume Next
   ' Convert MyNumber to a string, trimming extra spaces.
   MyNumber = Trim(Str(MyNumber))

' Find decimal place.
   DecimalPlace = InStr(MyNumber, ".")

' If we find decimal place...
   If DecimalPlace > 0 Then
      ' Convert Paisa
      Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
      Paisa = " and " & ConvertTens(Temp) & " Paisa"

' Strip off paisa from remainder to convert.
      MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
   End If
   
'===============================================================
Dim TM As String  ' If MyNumber between Rs.1 To 99 Only.
TM = Right(MyNumber, 2)

If Len(MyNumber) > 0 And Len(MyNumber) <= 2 Then
If Len(TM) = 1 Then
Words = ConvertDigit(TM)
RupeesToWord = "Rupees " & Words & Paisa & " Only"

Exit Function

Else
If Len(TM) = 2 Then
Words = ConvertTens(TM)
   RupeesToWord = "Rupees " & Words & Paisa & " Only"
Exit Function

End If
End If
End If
'===============================================================
  
   
   ' Convert last 3 digits of MyNumber to ruppees in word.
   Hundreds = ConvertHundreds(Right(MyNumber, 3))
   ' Strip off last three digits
   MyNumber = Left(MyNumber, Len(MyNumber) - 3)
    
   iCount = 0
   Do While MyNumber <> ""
      'Strip last two digits
      Temp = Right(MyNumber, 2)
      If Len(MyNumber) = 1 Then
         
                 
            If Trim(Words) = "Thousand" Or _
            Trim(Words) = "Lakh  Thousand" Or _
            Trim(Words) = "Lakh" Or _
            Trim(Words) = "Crore" Or _
            Trim(Words) = "Crore  Lakh  Thousand" Or _
            Trim(Words) = "Arab  Crore  Lakh  Thousand" Or _
            Trim(Words) = "Arab" Or _
            Trim(Words) = "Kharab  Arab  Crore  Lakh  Thousand" Or _
            Trim(Words) = "Kharab" Then
            
         Words = ConvertDigit(Temp) & place(iCount)
         MyNumber = Left(MyNumber, Len(MyNumber) - 1)
            
          Else
       
         Words = ConvertDigit(Temp) & place(iCount) & Words
         MyNumber = Left(MyNumber, Len(MyNumber) - 1)
           
         End If
      Else
         
         If Trim(Words) = "Thousand" Or _
            Trim(Words) = "Lakh  Thousand" Or _
            Trim(Words) = "Lakh" Or _
            Trim(Words) = "Crore" Or _
            Trim(Words) = "Crore  Lakh  Thousand" Or _
            Trim(Words) = "Arab  Crore  Lakh  Thousand" Or _
            Trim(Words) = "Arab" Then

Words = ConvertTens(Temp) & place(iCount)
         
         
         MyNumber = Left(MyNumber, Len(MyNumber) - 2)
         Else

'=================================================================
        ' if only Lakh, Crore, Arab, Kharab
        
        If Trim(ConvertTens(Temp) & place(iCount)) = "Lakh" Or _
           Trim(ConvertTens(Temp) & place(iCount)) = "Crore" Or _
           Trim(ConvertTens(Temp) & place(iCount)) = "Arab" Then
           
        Words = Words
          MyNumber = Left(MyNumber, Len(MyNumber) - 2)
        Else
         Words = ConvertTens(Temp) & place(iCount) & Words
         MyNumber = Left(MyNumber, Len(MyNumber) - 2)
         En...

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.

Download money.zip