| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 四舍六入 | 文本型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 原数值 | 文本型 | 保留小数位数 | 整数型 | ||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 临时 | 文本型 | |||||
| 原 | 文本型 | |||||
| 修约位 | 整数型 | |||||
临时 ＝ 取文本左边 (原, 寻找文本 (原, “.”, , 假) ＋ 保留小数位数) ' //先不管规则，取出相应位数数值。
临时 ＝ 临时 ＋ 取重复文本 (保留小数位数 ��� (取文本长度 (临时) － 寻找文本 (原, “.”, , 假)), “0”) ' //位数不足用0补齐
修约位 ＝ 到数值 (取文本中间 (原, 取文本长度 (临时) ＋ 1, 1)) ' //取出修约位。
如果真 (修约位 ＞ 5)
返回 (到文本 (到数值 (临时) ＋ 求次方 (0.1, 保留小数位数))) ' //大于5，进位。
如果真 (修约位 ＝ 5 且 到数值 (取文本右边 (原, 取文本长度 (原) － 取文本长度 (临时) － 1)) ≠ 0)返回 (到文本 (到数值 (临时) ＋ 求次方 (0.1, 保留小数位数))) ' //等于5且后面有不为0的数值，进位。如果真 (修约位 ＝ 5 且 到数值 (取文本右边 (原, 取文本长度 (原) － 取文本长度 (临时) － 1)) ＝ 0)如果 (到数值 (取文本右边 (临时, 1)) ％ 2 ＝ 0)
返回 (临时) ' //等于5且后面为0，但左边是偶数，舍去。
返回 (到文本 (到数值 (临时) ＋ 求次方 (0.1, 保留小数位数))) ' //等于5且后面为0，但左边是奇数，进位。
返回 (临时) ' //小于5，舍去。