Convert no into words

Question

0.00/5 (No votes)

See more:

Iam using the below code to print amount in words in crystal report. When i convert 2077676 to words this return TWO MILLION SEVENTY SEVEN THOUSAND SIX HUNDRED SEVENTY SIX. But I want TWENTY LAC SEVENTY SEVEN THOUSAND SIX HUNDRED SEVENTY SIX
.How can i do this

VB

dim mIntPart as number, mDecPart as number
dim mAmtInWords as string
mintpart=int({qryFilingRebateClaim.InvExc_DutyRate})
mDecpart = {qryFilingRebateClaim.InvExc_DutyRate} - int({qryFilingRebateClaim.InvExc_DutyRate})
mAmtInWords=Towords(mIntPart)
mAmtInWords=left(mAmtInWords,instr(mAmtInWords," and"))
if mDecpart <> 0 then
    mAmtInWords=mAmtInWords + " POINT " + Towords(mDecpart*10)
    mAmtInWords=left(mAmtInWords,instr(mAmtInWords," and"))
end if
mAmtInWords = ucase(mAmtInWords) + " ONLY"
formula=mAmtInWords

Posted 20-Jan-12 1:23am

Member 8390746

Add a Solution

Comments

Jaganathan Bantheswaran 20-Jan-12 7:39am

You need to change the ToWords method logic

Member 8390746 21-Jan-12 0:36am

ToWords is a builtin function

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

E.F. Nijboer · Answer 1 · 2012-01-20T01:45:00

The link below links to an OpenOffice document with Macro's (with credits to Andrew Pitonyak who wrote it). On page 81 of this document you'll find the listing to do exactly what you want. It shouldn't be to hard converting it because it is already VBA compatible. The function goes as far as a centillion which should be good enough for a couple more years ;)
Personally I find this version very clean and compact, especially as it also works with numbers insanely larger than other examples. Really something worthy of having a look at.

http://www.google.nl/url?sa=t&rct=j&q=openoffice%20macro%20number%20to%20words&source=web&cd=2&ved=0CDEQFjAB&url=http%3A%2F%2Fwww.openoffice.org%2Fdocumentation%2FHOW_TO%2Fvarious_topics%2FAndrewMacro.odt&ei=pV8ZT_y1EsvTsgbsv-hI&usg=AFQjCNEUbb8iQhGd9-ITRrzXmKF1ohK9Cg&cad=rja[^]

Good luck!