[转]用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源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)