发新话题
打印

大小写转换

请看我以前写的代码

根据数字的读法,写了一个把数字转成中文字符串的程序

参数一为数字

参数二为是不是反回人民币大写

参数三为是不是直接读数字,否则带有十百等单位

参数四为设置小数点后面的位数,默认为4

使用方法是

t=GetChinaNum(20005.000436, , , 7)'返回 “二千零五点零零零四三六”

t=GetChinaNum(2005.436, True, , 7)'返回“贰仟零伍元肆角肆分”

t=GetChinaNum(2005.436, , True, 7)'返回“二零零五点四三六”


下面是程序代码<

TOP

发新话题