数字金额大写中文格式化[完美]

chencong5025 · 发表于 2022-7-2 21:09:21

翻译自Delphi支持到分
截图
QQ截图20220702210836.jpg

子程序名	返回值类型	公开	备注
大写转换	文本型
参数名	类型	参考	可空	数组	备注
money	双精度小数型

变量名	类型	静态	数组	备注
S1	文本型		10
S2	文本型		15
S	文本型
dx	文本型
len	整数型
i	整数型

S1 ＝ { “零”, “壹”, “贰”, “叁”, “肆”, “伍”, “陆”, “柒”, “捌”, “玖” }
S2 ＝ { “分”, “角”, “元”, “拾”, “佰”, “仟”, “万”, “拾”, “佰”, “仟”, “亿”, “拾”, “佰”, “仟”, “万” }

如果真 (money ＞ 9000000000000)

返回 (“不能大于九万亿”)

如果真 (money ＜ 0)

dx ＝ “负”

money ＝－money

S ＝格式化文本 (“%.0f”, money × 100)
len ＝取文本长度 (S)

计次循环首 (len, i)

dx ＝ dx ＋ S1 [取代码 (S, i) －取代码 (“0”, ) ＋ 1] ＋ S2 [len － i ＋ 1]

计次循环尾 ()
dx ＝子文本替换 (dx, “零仟”, “零”, , , 真)
dx ＝子文本替换 (dx, “零佰”, “零”, , , 真)
dx ＝子文本替换 (dx, “零拾”, “零”, , , 真)
dx ＝子文本替换 (dx, “零角”, “零”, , , 真)
dx ＝子文本替换 (dx, “零零”, “零”, , , 真)
dx ＝子文本替换 (dx, “零零”, “零”, , , 真)
dx ＝子文本替换 (dx, “零零”, “零”, , , 真)
dx ＝子文本替换 (dx, “零亿”, “亿”, , , 真)
dx ＝子文本替换 (dx, “零万”, “万”, , , 真)
dx ＝子文本替换 (dx, “零分”, “整”, , , 真)
dx ＝子文本替换 (dx, “零元”, “元”, , , 真)

判断 (dx ＝ “整”)

dx ＝ “零元整”

dx ＝子文本替换 (dx, “亿万”, “亿零”, , , 真)

dx ＝子文本替换 (dx, “零元”, “元”, , , 真)
返回 (dx)

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br />
.支持库 eAPI<br />
<br />
.子程序 大写转换, 文本型<br />
.参数 money, 双精度小数型<br />
.局部变量 S1, 文本型, , "10"<br />
.局部变量 S2, 文本型, , "15"<br />
.局部变量 S, 文本型<br />
.局部变量 dx, 文本型<br />
.局部变量 len, 整数型<br />
.局部变量 i, 整数型<br />
<br />
S1 ＝ { “零”, “壹”, “贰”, “叁”, “肆”, “伍”, “陆”, “柒”, “捌”, “玖” }<br />
S2 ＝ { “分”, “角”, “元”, “拾”, “佰”, “仟”, “万”, “拾”, “佰”, “仟”, “亿”, “拾”, “佰”, “仟”, “万” }<br />
.如果真 (money ＞ 9000000000000)<br />
    返回 (“不能大于九万亿”)<br />
.如果真结束<br />
<br />
.如果真 (money ＜ 0)<br />
    dx ＝ “负”<br />
    money ＝ －money<br />
.如果真结束<br />
<br />
S ＝ 格式化文本 (“%.0f”, money × 100)<br />
len ＝ 取文本长度 (S)<br />
.计次循环首 (len, i)<br />
    dx ＝ dx ＋ S1 [取代码 (S, i) － 取代码 (“0”, ) ＋ 1] ＋ S2 [len － i ＋ 1]<br />
.计次循环尾 ()<br />
dx ＝ 子文本替换 (dx, “零仟”, “零”, , , 真)<br />
dx ＝ 子文本替换 (dx, “零佰”, “零”, , , 真)<br />
dx ＝ 子文本替换 (dx, “零拾”, “零”, , , 真)<br />
dx ＝ 子文本替换 (dx, “零角”, “零”, , , 真)<br />
dx ＝ 子文本替换 (dx, “零零”, “零”, , , 真)<br />
dx ＝ 子文本替换 (dx, “零零”, “零”, , , 真)<br />
dx ＝ 子文本替换 (dx, “零零”, “零”, , , 真)<br />
dx ＝ 子文本替换 (dx, “零亿”, “亿”, , , 真)<br />
dx ＝ 子文本替换 (dx, “零万”, “万”, , , 真)<br />
dx ＝ 子文本替换 (dx, “零分”, “整”, , , 真)<br />
dx ＝ 子文本替换 (dx, “零元”, “元”, , , 真)<br />
.判断开始 (dx ＝ “整”)<br />
    dx ＝ “零元整”<br />
.默认<br />
    dx ＝ 子文本替换 (dx, “亿万”, “亿零”, , , 真)<br />
    dx ＝ 子文本替换 (dx, “零元”, “元”, , , 真)<br />
.判断结束<br />
返回 (dx)

@l1299587332