| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 大写转小写 | 双精度小数型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 大写 | 文本型 | ||||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 带小数点 | 逻辑型 | |||||
| 数组 | 文本型 | 0 | ||||
| i | 整数型 | |||||
| 基数 | 长整数型 | |||||
| 基数2 | 长整数型 | |||||
| 结果 | 双精度小数型 | |||||
基数2 ＝ 1
变量循环首 (取数组成员数 (数组), 1, -1, i)
如果真 (数组 [i] ＝ “整” 或 数组 [i] ＝ “正”)到循环尾 ()
如果真 (数组 [i] ＝ “分”)基数 ＝ 1到循环尾 ()如果真 (数组 [i] ＝ “角”)基数 ＝ 10到循环尾 ()如果真 (数组 [i] ＝ “元”)基数 ＝ 100 × 基数2到循环尾 ()如果真 (数组 [i] ＝ “拾” 或 数组 [i] ＝ “十”)基数 ＝ 1000 × 基数2到循环尾 ()如果真 (数组 [i] ＝ “佰” 或 数组 [i] ＝ “百”)基数 ＝ 10000 × 基数2到循环尾 ()如果真 (数组 [i] ＝ “仟” 或 数组 [i] ＝ “千”)基数 ＝ 100000 × 基数2到循环尾 ()如果真 (数组 [i] ＝ “万” 或 数组 [i] ＝ “萬”)基数 ＝ 1000000 × 基数2基数2 ＝ 基数 ÷ 100到循环尾 ()如果真 (数组 [i] ＝ “亿”)基数 ＝ 1000000 × 基数2基数2 ＝ 基数 ÷ 100到循环尾 ()结果 ＝ 结果 ＋ ToDigit (数组 [i]) × 基数
变量循环尾 ()返回 (结果 ÷ 100)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| ToDigit | 整数型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| cn | 文本型 | ||||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| num | 整数型 | |||||
判断 (cn ＝ “壹” 或 cn ＝ “一”)
num ＝ 1
判断 (cn ＝ “贰” 或 cn ＝ “两” 或 cn ＝ “二”)
num ＝ 2判断 (cn ＝ “叁” 或 cn ＝ “三”)num ＝ 3判断 (cn ＝ “肆” 或 cn ＝ “四”)num ＝ 4判断 (cn ＝ “伍” 或 cn ＝ “五”)num ＝ 5判断 (cn ＝ “陆” 或 cn ＝ “六”)num ＝ 6判断 (cn ＝ “柒” 或 cn ＝ “七”)num ＝ 7判断 (cn ＝ “捌” 或 cn ＝ “八”)num ＝ 8判断 (cn ＝ “玖” 或 cn ＝ “九”)num ＝ 9判断 (cn ＝ “拾” 或 cn ＝ “十”)num ＝ 10判断 (cn ＝ “佰” 或 cn ＝ “百”)num ＝ 100判断 (cn ＝ “仟” 或 cn ＝ “千”)num ＝ 1000判断 (cn ＝ “萬” 或 cn ＝ “万”)num ＝ 10000判断 (cn ＝ “零”)
num ＝ 0
num ＝ 0返回 (num)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 逐字分割 | |||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 数据 | 文本型 | result | 文本型 | ||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 文本 | 文本型 | |||||
| n | 整数型 | |||||
| 代码 | 整数型 | |||||
| 临时 | 文本型 | |||||
| 分割后文本 | 文本型 | 0 | ||||
| i | 整数型 | |||||
| 最终文本 | 文本型 | |||||
| len | 整数型 | |||||
文本 ＝ 数据
判断循环首 (n ≤ 取文本长度 (文本))临时 ＝ 取文本中间 (文本, n, 1)如果真 (取代码 (临时, ) ＜ 0)临时 ＝ 取文本中间 (文本, n, 2)n ＝ n ＋ 1加入成员 (分割后文本, 临时)n ＝ n ＋ 1判断循环尾 ()len ＝ 取数组成员数 (分割后文本)
计次循环首 (len, i)判断 (i ≠ len)最终文本 ＝ 最终文本 ＋ 分割后文本 [i] ＋ “ ”最终文本 ＝ 最终文本 ＋ 分割后文本 [i]
计次循环尾 ()result ＝ 分割文本 (最终文本, “ ”, )
