Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 财务应用

[转]用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中测试通过。



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助