四舍六入五成双

新纪元

  

子程序名	返回值类型	公开	备 注
四舍六入	文本型
参数名	类 型	参考	可空	数组	备 注
原数值	文本型
保留小数位数	整数型

变量名	类 型	静态	数组	备 注
临时	文本型
原	文本型
修约位	整数型

原 ＝ 到半角 (原数值)
临时 ＝ 取文本左边 (原, 寻找文本 (原, “.”, , 假) ＋ 保留小数位数)  ' //先不管规则，取出相应位数数值。
临时 ＝ 临时 ＋ 取重复文本 (保留小数位数 ��� (取文本长度 (临时) － 寻找文本 (原, “.”, , 假)), “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，舍去。

.版本 2<br /> <br /> .子程序 四舍六入, 文本型<br /> .参数 原数值, 文本型<br /> .参数 保留小数位数, 整数型<br /> .局部变量 临时, 文本型<br /> .局部变量 原, 文本型<br /> .局部变量 修约位, 整数型<br /> <br /> 原 ＝ 到半角 (原数值)<br /> 临时 ＝ 取文本左边 (原, 寻找文本 (原, “.”, , 假) ＋ 保留小数位数)  ' //先不管规则，取出相应位数数值。<br /> 临时 ＝ 临时 ＋ 取重复文本 (保留小数位数 － (取文本长度 (临时) － 寻找文本 (原, “.”, , 假)), “0”)  ' //位数不足用0补齐<br /> 修约位 ＝ 到数值 (取文本中间 (原, 取文本长度 (临时) ＋ 1, 1))  ' //取出修约位。<br /> .如果真 (修约位 ＞ 5)<br />     返回 (到文本 (到数值 (临时) ＋ 求次方 (0.1, 保留小数位数)))  ' //大于5，进位。<br /> .如果真结束<br /> .如果真 (修约位 ＝ 5 且 到数值 (取文本右边 (原, 取文本长度 (原) － 取文本长度 (临时) － 1)) ≠ 0)<br />     返回 (到文本 (到数值 (临时) ＋ 求次方 (0.1, 保留小数位数)))  ' //等于5且后面有不为0的数值，进位。<br /> .如果真结束<br /> .如果真 (修约位 ＝ 5 且 到数值 (取文本右边 (原, 取文本长度 (原) － 取文本长度 (临时) － 1)) ＝ 0)<br />     .如果 (到数值 (取文本右边 (临时, 1)) ％ 2 ＝ 0)<br />         返回 (临时)  ' //等于5且后面为0，但左边是偶数，舍去。<br />     .否则<br />         返回 (到文本 (到数值 (临时) ＋ 求次方 (0.1, 保留小数位数)))  ' //等于5且后面为0，但左边是奇数，进位。<br />     .如果结束<br /> <br /> .如果真结束<br /> 返回 (临时)  ' //小于5，舍去。

.版本 2

.子程序 四舍六入, 文本型
.参数 原数值, 文本型
.参数 保留小数位数, 整数型
.局部变量 临时, 文本型
.局部变量 原, 文本型
.局部变量 修约位, 整数型

原 ＝ 到半角 (原数值)
临时 ＝ 取文本左边 (原, 寻找文本 (原, “.”, , 假) ＋ 保留小数位数)  ' //先不管规则，取出相应位数数值。
临时 ＝ 临时 ＋ 取重复文本 (保留小数位数 － (取文本长度 (临时) － 寻找文本 (原, “.”, , 假)), “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，舍去。

Y1269

如果我要修约3.1415926，保留小数点后3位，在编辑框224里面显示结果应该怎么弄啊

杨杨杨

四舍六入五成双，鸡进狗不进

交流3366

学习一下，谢谢楼主

往昔丶

我去，标题我看的头晕了！~