转换成单词 [英] Convert no into words

问题描述

使用以下代码在Crystal Report中以字为单位打印金额.当我将2077676转换为单词时，这将返回200万，七十六，一百六十六.但我要二十世纪七十六六十七十六
.我该怎么做

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

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

推荐答案

下面的链接链接到带有Macro的OpenOffice文档(作者是Andrew Pitonyak).在本文档的第81页上，您将找到可以完全执行所需功能的清单.它不应该硬转换它，因为它已经与VBA兼容.该功能可以达到一百万美元，应该可以再使用几年；)
我个人觉得这个版本非常干净紧凑，特别是因为它也可以处理比其他示例大得多的数字.真的值得一看.

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!

这篇关于转换成单词的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！