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

一个灵活的金额大写模块。

时 间:2012-01-29 18:43:24
作 者:蟹仔   ID:3945  城市:广州
摘 要:一个灵活的金额大写模块。
正 文:

    查看了论坛上的很多金额大写模块例子,总觉得使用起来不够灵活,于是自己重写了一个,一共有三个可变参数,三种格式。也可以单独获得某位数字,以便分开显示,做出更美观的报表。

 

例子:金额为12345.345时  

 

                          je([金额],1,0,"¥")   显示5  因为小数点第三位四舍五入
'                         je([金额],3,0,"¥")   显示5  因为个位数为5
'                         je([金额],8,0,"¥")   显示¥  因为包括小数在内只有7位
'                         je([金额],9,0,"¥")   显示空  因为第九位没有数字也没有符号
'                         je([金额],1,1,"零")   显示伍
'                         je([金额],3,1,"零")   显示伍
'                         je([金额],7,1,"零")   显示壹
'                         je([金额],8,1,"零")   显示零
'                         je([金额],9,1,"零")   显示零
'                         je([金额],10,3,"")    显示 壹万贰仟叁佰肆拾伍元叁角肆分
'                         je([金额],10,3,"零")  显示 零仟零佰零拾壹万贰仟叁佰肆拾伍元叁角肆分
'                         je([金额],8,3,"零")   显示 零拾壹万贰仟叁佰肆拾伍元叁角肆分
'                         je([金额],10,3,"⊙")   显示 ⊙仟⊙佰⊙拾壹万贰仟叁佰肆拾伍元叁角肆分

 

附件:

点击下载此附件



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

常见问答:

技术分类:

相关资源:

专栏作家

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