 |
|
|
There were some bugs in this functions, It was giving wrong results while converting below 99 numbers, Number when more than 13 digits before decimal point, Negetive numbers and while converting the numbers in which “00” are in place of thousand, lakhs…etc.
I tried to debug & got the results. Following is the modified code.
'*************************************************
'This function is modified(Debuged) By Vidyadhar B.C. (vidyadhar_bc@yahoo.com)
'
' Function for conversion of a Currency to words
' Parameter - accept a Currency
' Returns the number in words format
'*************************************************
Function CurrencyToWord(ByVal MyNumber)
Dim Temp
Dim Rupees, Paisa As String
Dim DecimalPlace, iCount
Dim Hundred, Words As String
Dim ch As String
Dim i As Integer
Dim count As Integer
Dim Alldigit As Balloon
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))
'==========================Modified================================
' count "." if it is more than 1
For i = 1 To Len(MyNumber)
If Mid$(MyNumber, i, 1) = "." Then
count = count + 1
If count > 1 Then
CurrencyToWord = "Invalid Currency....!"
Exit Function
End If
End If
Next i
' check all the digits are numbers
Alldigits = True
For i = 1 To Len(MyNumber)
' See if the next character is a non-digit.
ch = Mid$(MyNumber, i, 1)
If ch < "0" Or ch > "9" Or ch = "." Then
If ch <> "." Then
' This is not a digit.
Alldigits = False
Exit For
End If
End If
Next i
If Alldigits = False Then
CurrencyToWord = "Invalid Currency....!"
Exit Function
End If
'====================================================================
' Find decimal place.
DecimalPlace = InStr(MyNumber, ".")
'==========================Modified==================================
If DecimalPlace = 0 Then
If Len(MyNumber) > 13 Then
CurrencyToWord = "Value is too large, Function accepts 13 digits before decimal point"
Exit Function
End If
End If
'====================================================================
' If we find decimal place...
If DecimalPlace > 0 Then
'==========================Modified==================================
If DecimalPlace > 14 Then
CurrencyToWord = "Value is too large, Function accepts 13 digits before decimal point"
Exit Function
End If
'====================================================================
' Convert Paisa
Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
Paisa = " and " & ConvertTens(Temp) & " Paisa Only"
' Strip off paisa from remainder to convert.
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
' Convert last 3 digits of MyNumber to Rupees in word.
Hundred = ConvertHundred(Right(MyNumber, 3))
'==========================Modified============
If Len(MyNumber) <= 2 Then
' Append leading zeros to number.
MyNumber = Right("000" & MyNumber, 3)
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
' Strip off last three digits
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
End If
'====================================================================
iCount = 0
Do While MyNumber <> ""
'Strip last two digits
Temp = Right(MyNumber, 2)
If Len(MyNumber) = 1 Then
Words = ConvertDigit(Temp) & Place(iCount) & Words
MyNumber = Left(MyNumber, Len(MyNumber) - 1)
Else
'==========================Modified==================================
If Temp <> "00" Then
Words = ConvertTens(Temp) & Place(iCount) & Words
MyNumber = Left(MyNumber, Len(MyNumber) - 2)
Else
MyNumber = Left(MyNumber, Len(MyNumber) - 2)
End If
End If
iCount = iCount + 2
Loop
If Paisa = "" Then
CurrencyToWord = "Rupees " & Words & Hundred & " Only."
Else
CurrencyToWord = "Rupees " & Words & Hundred & Paisa
End If
'=====================================================================
End Function
' Conversion for Hundred
'*****************************************
Private Function ConvertHundred(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 Hundred 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
ConvertHundred = Trim(Result)
End Function
' Conversion for tens
'*****************************************
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
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
Vidyadhar
|
|
|
|
|
|
|
I have tried to solve the problems. comment the paise if you do not want decimals.
Function CurrencyToWord(MyNumber)
Dim Temp
Dim Rupees
Dim Paisa
Dim DecimalPlace
Dim iCount
Dim Hundreds
Dim Words
ReDim Place(9)
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)
Temp = Left(Mid(MyNumber, DecimalPlace + 1), 2)
if Len(Temp) = 1 then
Paisa = " and " & ConvertDigit(Temp) & " Paisa"
else
Paisa = " and " & ConvertTens(Temp) & " Paisa"
end if
' Strip off paisa from remainder to convert.
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
If Cint(MyNumber) > 99 Then
' Convert last 3 digits of MyNumber to ruppees in word.
Hundreds = ConvertHundreds(Right(MyNumber, 3))
'MsgBox Hundreds & " Hundreds"
' Strip off last three digits
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
iCount = 0
Do While MyNumber <> ""
'Strip last two digits
'MsgBox(MyNumber & " MyNumber")
Temp = Right(MyNumber, 2)
'MsgBox(Temp & " Temp")
If Len(MyNumber) = 1 Then
Words = ConvertDigit(Temp) & Place(iCount) & Words
MyNumber = Left(MyNumber, Len(MyNumber) - 1)
Else
Words = ConvertTens(Temp) & Place(iCount) & Words
MyNumber = Left(MyNumber, Len(MyNumber) - 2)
End If
if Trim(Words) = "Thousand" OR Trim(Words) = "Lakh" OR Trim(Words) = "Crore" OR Trim(Words) = "Arab" OR Trim(Words) = "Kharab" Then
Words = ""
end if
'MsgBox words & " words"
iCount = iCount + 2
Loop
Else
Temp = MyNumber
MsgBox Temp
Words = ConvertTens(Temp)
if Cint(Temp) = 1 then Words = "One"
'MyNumber = Left(MyNumber, Len(MyNumber) - 2)
End if
CurrencyToWord = "Ruppees " & Words & Hundreds & Paisa & " only"
End Function
' Conversion for hundreds
'*****************************************
Private Function ConvertHundreds(MyNumber)
Dim Result
' Exit if there is nothing to convert.
If CInt(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
' Conversion for tens
'*****************************************
Private Function ConvertTens(MyTens)
Dim Result
' Is value between 10 and 19?
If Cint(Left(MyTens, 1)) = 1 Then
Select Case Cint(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 Cint(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.
if Len(MyTens) = 1 then
Result = ConvertDigit(MyTens)
else
Result = Result & ConvertDigit(Right(MyTens, 1))
end if
End If
ConvertTens = Result
End Function
Private Function ConvertDigit(MyDigit)
Select Case CInt(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
|
|
|
|
|
|
|
Doesn't work correctly for numbers less than 3 digits..for instance
1 shows as One Thousand One
10 shows as Ten Thousand Ten
99 shows as Ninety Nine Thousand Ninety Nine
I tried correcting the code with a small IF condition as shown below. This condition may not work properly if you have decimal numbers. Works fine for me since I round off the numbers to 0 places and do not use the PAISE field. Also I have added the words "Only" at the end.
Edited version of the code :
Option Explicit
' Function for conversion of a Currency to words
' Parameter - accept a Currency
' Returns the number in words format
'*************************************************
Function CurrencyToWord(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, ".")
'==========disabled the decimal part=============
' 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
'================================================
' Convert last 3 digits of MyNumber to ruppees in word.
Hundreds = ConvertHundreds(Right(MyNumber, 3))
'=========Added the IF condition below
'=========to resolve the <3 shows thousand bug
If Len(MyNumber) >= 3 Then
' 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
Words = ConvertDigit(Temp) & Place(iCount) & Words
MyNumber = Left(MyNumber, Len(MyNumber) - 1)
Else
Words = ConvertTens(Temp) & Place(iCount) & Words
MyNumber = Left(MyNumber, Len(MyNumber) - 2)
End If
iCount = iCount + 2
Loop
'================end of the if condition======
End If
'========changed the display to show Rs. XYZ Only==
CurrencyToWord = "Rs. " & Words & Hundreds & Paisa & " Only"
End Function
' Conversion for hundreds
'*****************************************
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
' Conversion for tens
'*****************************************
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
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
|
|
|
|
|
|
|
It Doesn't work correctly for numbers less than 3 digits, along with that had some more bugs. otherwise the function is fantastic. Here are some modifications I did to debug the problem and it is working. Try it. Thanks for the author.
'*************************************************
'This function is modified(Debuged) By Vidyadhar B.C. (vidyadhar_bc@yahoo.com)
'
' Function for conversion of a Currency to words
' Parameter - accept a Currency
' Returns the number in words format
'*************************************************
Function CurrencyToWord(ByVal MyNumber)
Dim Temp
Dim Rupees, Paisa As String
Dim DecimalPlace, iCount
Dim Hundred, Words As String
Dim ch As String
Dim i As Integer
Dim count As Integer
Dim Alldigit As Balloon
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))
'==========================Modified================================
' count "." if it is more than 1
For i = 1 To Len(MyNumber)
If Mid$(MyNumber, i, 1) = "." Then
count = count + 1
If count > 1 Then
CurrencyToWord = "Invalid Currency....!"
Exit Function
End If
End If
Next i
' check all the digits are numbers
Alldigits = True
For i = 1 To Len(MyNumber)
' See if the next character is a non-digit.
ch = Mid$(MyNumber, i, 1)
If ch < "0" Or ch > "9" Or ch = "." Then
If ch <> "." Then
' This is not a digit.
Alldigits = False
Exit For
End If
End If
Next i
If Alldigits = False Then
CurrencyToWord = "Invalid Currency....!"
Exit Function
End If
'====================================================================
' Find decimal place.
DecimalPlace = InStr(MyNumber, ".")
'==========================Modified==================================
If DecimalPlace = 0 Then
If Len(MyNumber) > 13 Then
CurrencyToWord = "Value is too large, Function accepts 13 digits before decimal point"
Exit Function
End If
End If
'====================================================================
' If we find decimal place...
If DecimalPlace > 0 Then
'==========================Modified==================================
If DecimalPlace > 14 Then
CurrencyToWord = "Value is too large, Function accepts 13 digits before decimal point"
Exit Function
End If
'====================================================================
' Convert Paisa
Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
Paisa = " and " & ConvertTens(Temp) & " Paisa Only"
' Strip off paisa from remainder to convert.
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
' Convert last 3 digits of MyNumber to Rupees in word.
Hundred = ConvertHundred(Right(MyNumber, 3))
'==========================Modified============
If Len(MyNumber) <= 2 Then
' Append leading zeros to number.
MyNumber = Right("000" & MyNumber, 3)
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
' Strip off last three digits
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
End If
'====================================================================
iCount = 0
Do While MyNumber <> ""
'Strip last two digits
Temp = Right(MyNumber, 2)
If Len(MyNumber) = 1 Then
Words = ConvertDigit(Temp) & Place(iCount) & Words
MyNumber = Left(MyNumber, Len(MyNumber) - 1)
Else
'==========================Modified==================================
If Temp <> "00" Then
Words = ConvertTens(Temp) & Place(iCount) & Words
MyNumber = Left(MyNumber, Len(MyNumber) - 2)
Else
MyNumber = Left(MyNumber, Len(MyNumber) - 2)
End If
End If
iCount = iCount + 2
Loop
If Paisa = "" Then
CurrencyToWord = "Rupees " & Words & Hundred & " Only."
Else
CurrencyToWord = "Rupees " & Words & Hundred & Paisa
End If
'=====================================================================
End Function
' Conversion for Hundred
'*****************************************
Private Function ConvertHundred(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 Hundred 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
ConvertHundred = Trim(Result)
End Function
' Conversion for tens
'*****************************************
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
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
Vidyadhar
|
|
|
|
|
|
|
I have coped this to Excel & now when i need to use this function, it gives Error Msg #name?
What do i Do?
-Pavan
pavanghai@gmail.com
|
|
|
|
|
|
|
Dear Mr. Agarwal,
It will be much easier if you could indicate what formula should be written in Excel/Access so that this module works.
I did download this script but could not get the output since I don't know what references you have used. However, after some tries managed to get the required output. Maybe you should put the usage formulae on top of the page itself so that the user may know how to use the formula.
=============>
Used "=CurrencyToWord(1000)" which worked.
=============<
However, I think you still need to include some more loops to take care of the following problem:
=currencytoword(100000001000), returns the output:
Ruppees One Kharab Arab Crore Lakh One Thousand, which should actually read as "Ruppees One Kharab Once Thousand". There could be several other such combinations that needs to be corrected, which can be looked into only once used.
You may enhance this function as required.
Thanks
Suresh
-- modified at 1:33 Monday 9th October, 2006
|
|
|
|
|
|
|
The coding is excellent but while converting lakhs and thousands it adds thousand to the end and also it doesnt convert single and double digits properly.
I made some modifications in the code and it is now functioning correct.
Please verify.
regards
S.PRAKASH
|
|
|
|
|
|
|
The function had solved my problem but it does not work when u have 6 digit converion and the dows not work in terms of Thousad
e.g : when u want to convert a number calld 500456
Result : it gives Rupees Five lakhs thousand Four Hundreds fifty six only
n such figures thousand should not come only
Otherswise rest all is fine Thanks
Tejas N Mistry
|
|
|
|
|
|
|
as when you add in module if 4th 5th digit is 00 then also Thousand word comes and if this for currency then it should Close with (Rupees........Only/-)
Regards,
Pritesh
|
|
|
|
|
|
|
I have copied the code given by you but I am unable to use it in access 2003. Can you help me by giving instructions on how to use the code in an Access 2003 Form
DMP
|
|
|
|
|
|
|
I want to use the code for formdocs software available from www.formdocs.com. Is it possible and how.
|
|
|
|
|
|
|
Function CurrencyToWord(ByVal MyNumber)
Above code converts 1 as Ruppees One Thousand One
Please advise
Krishna Kumar Menon
|
|
|
|
|
|
|
This is a section for c++ only, I looked over it and it looks like you didn't do it visually, also I don't know any BASIC so I don't know how you did, although nice job/try.
Actual Linux Penguins were harmed in the creation of this message.
|
|
|
|
|
|
|
Thankyou for your comment. I posted this article for Visual Basic Section only. This funtion has been written in VBA for MS Access/ MS Excel.
pkagarwal
|
|
|
|
|
|
|
Thankyou for your comment. I posted this article for Visual Basic Section only. This funtion has been written in VBA for MS Access/ MS Excel.
pkagarwal
|
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Rant 
Admin