几行代码实现金额(阿拉伯数字)转中文大写

smartday

在几个坛子逛了一回,见到的阿拉伯数字转中文大写的例程不少,不过就是嫌烦,用起来也不方便,发我用的给大伙参考一下吧:

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

    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编辑过]

海狸先生

呵呵，俺也写过类似的http://www.office-cn.net/Article/ShowArticle.asp?ArticleID=1686

smartday

哈哈,殊途同归

五拱柳林生

要调整一下，不然会出现２００８．６９　＂贰千零百零拾捌元陆角玖分＂

junta

看来我还要继续学习