翻译自Delphi支持到分
截图
变量名 | 类 型 | 静态 | 数组 | 备 注 | 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)
@l1299587332
|