[转]用VBA实现把access中的数字金额转换成人民币大写

时　间:2008-08-21 10:38:28
作　者:刘红军   ID：3055  城市：武汉
摘　要:用VBA实现把Access中的数字金额转换成人民币大写
正　文:

用VB6.0实现把Access2000中的数字金额转换成人民币大写 
---- 在用VB6.0+Access2000编写票据打印程序中,有时遇到将数字金额换成人民币大写的问题，如"123.45"转换成"壹佰贰拾叁元肆角伍分整",VB6.0本身未提供这样的转换函数，笔者经过反复调试,成功开发一个短小精悍的转换函数.

函数如下：

 Public Function rmb(s As Currency) As String
    s1$ = LTrim(Str$(Abs(s)))
    L% = Len(s1)
    Select Case L - InStrRev(s1, ".")
    '双引号内是小数点
       Case L
         s2$ = s1 + ".00"
       Case 1
         s2$ = s1 + "0"
       Case 2
         s2$ = s1
    End Select
    L = Len(s2)
    DX$ = ""
    C1$ = "零壹贰叁肆伍陆柒捌玖"
    C2$ = "分角 元拾佰仟万拾佰仟亿拾佰"
    '角和元之间留一个空格
     Do While L >= 1
     x$ = Mid(s2, Len(s2) - L + 1, 1)
    DX = DX + IIf(x < > ".", Mid(C1,
 Val(x) + 1, 1) + Trim(Mid(C2, (L - 1) + 1, 1)), "")
     L = L - 1
     Loop
     rmb = DX + "整"
    End Function

调用:
---- 首先需要使用DAO3.6以上版本的数据库引擎(在"工程"--"引用"中选择"Microsoft DAO 3.6 Object Library"),然后:

 Private Sub Form_Load()
     'b1是Access的数据库abc.mdb中
  的表,再假设表中第i个字段是数字金额.
     Set db = OpenDatabase
  ("c:\my documents\abc.mdb")
     Set rs = db.OpenRecordset("b1")
    End Sub
    Private Sub command1_click()
     '把当前记录第i个字段的
  数字金额转换为人民币大写
     x$=rmb(CCur(rs.fields(i)))
     '此处是打印代码
    End Sub

结论:
---- 本函数rmb()方便地实现了数字金额转换成人民币大写,正负数皆可,最大能转换百亿以内的数.以上函数在Win98,VB6.0中文企业版+Access2000中运行通过。:)

备注：在2003、2007中测试通过。