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

例子:金额为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,"⊙")   显示 ⊙仟⊙佰⊙拾壹万贰仟叁佰肆拾伍元叁角肆分

附件:

点击下载此附件