Skip to main content
Home
Live to Learn!

Main navigation

  • Home
  • Learn
    • FoxPro
    • MS-DOS
    • C PRG
    • Java
    • ASP
    • Ruby on Rails
    • ASP.NET
    • E-Books
    • Exam Preparation
    • Tools
  • Blog
  • Forums
  • Contact
User account menu
  • Log in

Breadcrumb

  1. Home
  2. Blog

Convert Currency in Number to Words (Indian Rupees) - MS Excel

By Karthikeyan , 17 May, 2014

Cheques, invoices, bills, receipts are needs to have the currency format both in Numerical and words. The below script can be used in Microsoft Excel / Word / Access or any VBA program supported applications to convert the currency in number format to words (English). 

The below script adds 'and' joining word if it has paise (decimal part), otherwise if you want to have 'and' before 10s or 100s please check the following link for the version 2 of this script

Convert Currency in Number to Words (Indian Rupees) - Version 2


Function ConvertCurrencyToEnglish(ByVal MyNumber)
' Edited by Karthikeyan [email protected]
  Dim Temp
         Dim Rupees, Paise
         Dim DecimalPlace, Count
 
         ReDim Place(9) As String
         Place(2) = " Thousand "
         Place(3) = " lakh "
         Place(4) = " Crore "
 
 
         ' 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 Paise
            Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
            ' Hi! Note the above line Mid function it gives right portion
            ' after the decimal point
            'if only . and no numbers such as 789. accures, mid returns nothing
            ' to avoid error we added 00
            ' Left function gives only left portion of the string with specified places here 2
 
 
            Paise = ConvertTens(Temp)
 
 
            ' Strip off paise from remainder to convert.
            MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
         End If
 
         Count = 1
        If MyNumber <> "" Then
 
            ' Convert last 3 digits of MyNumber to Indian Rupees.
            Temp = ConvertHundreds(Right(MyNumber, 3))
 
            If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
 
            If Len(MyNumber) > 3 Then
               ' Remove last 3 converted digits from MyNumber.
               MyNumber = Left(MyNumber, Len(MyNumber) - 3)
            Else
               MyNumber = ""
            End If
 
        End If
 
            ' convert last two digits to of mynumber
            Count = 2
 
            Do While MyNumber <> ""
            Temp = ConvertTens(Right("0" & MyNumber, 2))
 
            If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
            If Len(MyNumber) > 2 Then
               ' Remove last 2 converted digits from MyNumber.
               MyNumber = Left(MyNumber, Len(MyNumber) - 2)
 
            Else
               MyNumber = ""
            End If
            Count = Count + 1
 
            Loop
 
 
 
 
         ' Clean up rupees.
         Select Case Rupees
            Case ""
               Rupees = ""
            Case "One"
               Rupees = "Rupee One"
            Case Else
               Rupees = "Rupees " & Rupees
         End Select
 
         ' Clean up paise.
         Select Case Paise
            Case ""
               Paise = ""
            Case "One"
               Paise = "One Paise"
            Case Else
               Paise = Paise & " Paise"
         End Select
         
         If Rupees = "" Then
         ConvertCurrencyToEnglish = Paise & " Only"
         ElseIf Paise = "" Then
         ConvertCurrencyToEnglish = Rupees & " Only"
         Else
         ConvertCurrencyToEnglish = Rupees & " and " & Paise & " Only"
         End If
         
End Function
 
 
Private Function ConvertDigit(ByVal MyDigit)
        Select Case Val(MyDigit)
            Case 1: ConvertDigit = "One"
            Case 2: ConvertDigit = "Two"
            Case 3: ConvertDigit = "Three"
            Case 4: ConvertDigit = "Four"
            Case 5: ConvertDigit = "Five"
            Case 6: ConvertDigit = "Six"
            Case 7: ConvertDigit = "Seven"
            Case 8: ConvertDigit = "Eight"
            Case 9: ConvertDigit = "Nine"
            Case Else: ConvertDigit = ""
         End Select
 
End Function
 
Private Function ConvertHundreds(ByVal MyNumber)
    Dim Result As String
 
         ' Exit if there is nothing to convert.
         If Val(MyNumber) = 0 Then Exit Function
 
         ' Append leading zeros to number.
         MyNumber = Right("000" & MyNumber, 3)
 
         ' Do we have a hundreds place digit to convert?
         If Left(MyNumber, 1) <> "0" Then
            Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred "
         End If
 
         ' Do we have a tens place digit to convert?
         If Mid(MyNumber, 2, 1) <> "0" Then
            Result = Result & ConvertTens(Mid(MyNumber, 2))
         Else
            ' If not, then convert the ones place digit.
            Result = Result & ConvertDigit(Mid(MyNumber, 3))
         End If
 
         ConvertHundreds = Trim(Result)
End Function
 
 
Private Function ConvertTens(ByVal MyTens)
          Dim Result As String
 
         ' Is value between 10 and 19?
         If Val(Left(MyTens, 1)) = 1 Then
            Select Case Val(MyTens)
               Case 10: Result = "Ten"
               Case 11: Result = "Eleven"
               Case 12: Result = "Twelve"
               Case 13: Result = "Thirteen"
               Case 14: Result = "Fourteen"
               Case 15: Result = "Fifteen"
               Case 16: Result = "Sixteen"
               Case 17: Result = "Seventeen"
               Case 18: Result = "Eighteen"
               Case 19: Result = "Nineteen"
               Case Else
            End Select
         Else
            ' .. otherwise it's between 20 and 99.
            Select Case Val(Left(MyTens, 1))
               Case 2: Result = "Twenty "
               Case 3: Result = "Thirty "
               Case 4: Result = "Forty "
               Case 5: Result = "Fifty "
               Case 6: Result = "Sixty "
               Case 7: Result = "Seventy "
               Case 8: Result = "Eighty "
               Case 9: Result = "Ninety "
               Case Else
            End Select
 
            ' Convert ones place digit.
            Result = Result & ConvertDigit(Right(MyTens, 1))
         End If
 
         ConvertTens = Result
End Function


Download this

How to use this code?

 

  • Click on Developer Tab in MS office (Word / Excel / Access). If Developer Tab not appears, click here to know the way to enable this. 
  • Click Visual Basic, then VBA application development window will open
  • Now right click in Project pane, insert -> Module

Inserting VBA module in MS Office

  • Now paste the above code and save it as Macro Enabled document. (For excel save with extension .xlsm)
  • Now you can use the formula '=ConvertCurrencyToEnglish()'

Currency in Number to Worlds - Excel

 

 

MS Access & MS Word Implementations

  • Convert Currency in Number to Words - MS Access
  • Convert Currency in Number to Words - MS Word

Online converter

  • Convert Currency in Number to Words - Online
  • Convert Number to Words in English - Online

 

Update 02-03-2017 : Code updated to show 'Rupee/Rupees' as prefix and 'Only' as suffix.

 

How to use video :

Category
How to
Tags
MS Excel
MS Office

Comments31

Profile picture for user Karthikeyan

Karthikeyan

8 years 11 months ago

In reply to by REHMAN (not verified)

Same way just suffix "only" word in formula.
e.g. = "Total " & ConvertCurrencyToEnglish(A1) &" only"

REHMAN (not verified)

8 years 11 months ago

thnx dear some more hlp how to add word only in the last like (Total One lac Twenty Two Thousand One Hundred Fifty Four Rupees only

Profile picture for user Karthikeyan

Karthikeyan

8 years 11 months ago

In reply to by REHMAN (not verified)

Just add the "Total " prefix in formula.
e.g. = "Total " & ConvertCurrencyToEnglish(A1)

REHMAN (not verified)

8 years 11 months ago

how to add word Total in start like ( TOTAL FORTY FIVE THOUSAND SIX HUNDRED AND FIFTY NINE ONLY)

Profile picture for user Karthikeyan

Karthikeyan

8 years 11 months ago

In reply to by akm2020 (not verified)

Just change the line 82 as follows
Rupees = "Rupees " & Rupees

Chakravarthy D… (not verified)

8 years 11 months ago

In reply to by Joe015 (not verified)

Great job!

Thank you would be a mere thing to say.

But as I could not do anything apart from saying “Big Thank You”

Miraj Khan (not verified)

8 years 11 months ago

dear admin, please help me for using those code. im new in access. im complete it in my database. please let me know how to use it in my access report. im waiting for ur earlier replay.

Uttam Tataria (not verified)

9 years ago

now you can convert any number into word using "Desi Tools" App, it also works on mobile

https://www.microsoft.com/s...

Need windows 8.1 or higher on pc or phone.

Uttam Tataria (not verified)

9 years ago

Now you can convert any number to word in indian style with "Desi Tool" App

https://www.microsoft.com/s...

It work on PC and Phone both

Need window 8 or higher..

Enjoy its free!!!

Profile picture for user Karthikeyan

Karthikeyan

9 years ago

In reply to by sushant (not verified)

Save the excel sheet macro enabled format. i.e.xlsm

sushant (not verified)

9 years ago

dear sir,

whenever i open the sheet i have insert again the same formula.

what is solution to solver at once.

B.K.Reddy.G (not verified)

9 years ago

it worked in excel

Profile picture for user Karthikeyan

Karthikeyan

9 years ago

In reply to by pramod (not verified)

Not just the code, you have to use the code in Excel and save the excel file in xlsm format.

pramod (not verified)

9 years ago

i have save above code in .xlam format but does not work.

akm2020 (not verified)

9 years 1 month ago

what if i want the "rupees" or "paise" first?

HARSH Mehta (not verified)

9 years 1 month ago

In reply to by admin

how do i append " only" at the end & "Rupees" at start

veerendra patil (not verified)

9 years 2 months ago

big thank you

samir (not verified)

9 years 2 months ago

Dear May i have one format excel file for this? any file in which u have applied this code..

thanks

Profile picture for user Karthikeyan

Karthikeyan

9 years 4 months ago

In reply to by jkdaddu (not verified)

This script works perfectly in MS Access too. If the value is 0 no message will be printed.

Then, the output is entirely based on your preference, when you trigger the function either in form load or after updating the source field. For example : =ConvertCurrencyToEnglish([Amount]) can be use in a field which refers source field [Amount] and converts the number to words.

jkdaddu (not verified)

9 years 4 months ago

Does this convert "0" into "Zero" on formload when entire form has blank data in access 2007?If yes/No please let me know how?

Profile picture for user admin

admin

9 years 4 months ago

In reply to by Jagroop Singh Gill (not verified)

Check this post

https://www.livetolearn.in/...

Profile picture for user admin

admin

9 years 4 months ago

In reply to by Joe015 (not verified)

https://www.livetolearn.in/...

Jagroop Singh Gill (not verified)

9 years 4 months ago

how does it work in Ms word

Kalyan Babu C (not verified)

9 years 4 months ago

Thank you it is working in my Excel-2007

Profile picture for user admin

admin

9 years 5 months ago

In reply to by KD (not verified)

If there is no paise or decimals in input number, then it will not be displayed.

KD (not verified)

9 years 6 months ago

what if i don't want the "paise" or decimals to display?

nice (not verified)

9 years 6 months ago

nice.

Profile picture for user admin

admin

9 years 10 months ago

In reply to by Lucky (not verified)

You can convert the above code to Java very easy.

Geet (not verified)

9 years 10 months ago

Big Thanks. Saved a lot of typing time for me..

Lucky (not verified)

9 years 10 months ago

can i get a similar one written in java..

Joe015 (not verified)

9 years 11 months ago

how does it work in Ms word

Pagination

  • First page
  • Previous page
  • Page 1
  • Page 2
  • Page 3
  • Page 4
  • Add new comment

Featured Blog Posts

Convert Currency in Number to Words (Indian Rupees) - MS Excel
Foxpro Tutorial and Programs
Convert Currency in Number to Words in MS Word
Convert Currency in Number to Words (Indian Rupees) - Version 2
Best way to Use Rupee Symbol in Windows – Easy steps
Convert Currency in Number to Words - MS Access
Creating All in One Windows XP DVD with all Important Applications
RSS feed

© 2009-2025 Live to Learn.In

Terms of Use | Privacy Policy