Office中国论坛/Access中国论坛

标题: 几行代码实现金额(阿拉伯数字)转中文大写 [打印本页]

作者: smartday 时间: 2005-9-22 22:57
标题: 几行代码实现金额(阿拉伯数字)转中文大写
在几个坛子逛了一回,见到的阿拉伯数字转中文大写的例程不少,不过就是嫌烦,用起来也不方便,发我用的给大伙参考一下吧:

'大写金额显示，打印发票时直接调用

china = "分角元拾百千万"

nchina = "零壹贰叁肆伍陆柒捌玖"



nnum = Round(Me!ZWMONEY, 2) 'me.zwmoney 输入阿拉伯数字的文本框



nstr = LTrim(str(nnum * 100))

cretv = ""



nlen = Len(nstr)          '数字长度

For i = nlen To 1 Step -1  '从最大数开始，长度逐步减少1位

      c = Mid(nstr, i, 1)

      a = Mid(nchina, Val(c) + 1, 1)

      B = Mid(china, (nlen - i) + 1, 1)

      cretv = a & B & cretv    'cretv存储的就是大写的金额了

Next

[此贴子已经被作者于2005-9-22 19:24:53编辑过]

作者: 海狸先生 时间: 2005-9-23 03:48
呵呵，俺也写过类似的http://www.office-cn.net/Article/ShowArticle.asp?ArticleID=1686

作者: smartday 时间: 2005-9-23 06:55
哈哈,殊途同归

作者: 五拱柳林生 时间: 2005-9-24 01:28
要调整一下，不然会出现２００８．６９　＂贰千零百零拾捌元陆角玖分＂

作者: junta 时间: 2008-5-6 15:39
看来我还要继续学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)