求教一个在RPGLE中四舍五入的问题.

暴走族

最近遇到一个问题.比如 A=1234567 B有2位小数. B=A/1000000
得出结果 B=1.23 用 EVAL(H)也是 1.23 请问怎样可以使 B=1.24呢.


PS:如果除6遍10倒可以得1.24,不过这个办法太……。

aeiou

1234567/1000000 本来就是等于 1.23  的啊。

用“四舍五入”法省略某一位后面的尾数，要看省略的最高位上的数，来决定“舍”还是“入”。如果省略的最高位上的数不满5（也就是4或3、2、1、0），就把尾数都舍去；如果省略的最高位上的数满5（也就是5或6、7、8、9），把尾数略去后，要向它的前一位进1。

人世间

你想要的实际上是进一法，不是四舍五入法。

没有找到这样的例子。

michael9406

你可以用如果有余数就进1

icepointer

可以用1234567/1.24，然后结果取整，再用这个数被1234567除。想法不是很成熟，如果是变量怎么办？

aeiou

楼主的算法还不是有余数就进一位，应该是从最后一位开始一位一位做四舍五入的。

过程如下：
1.234567=〉1.23457=〉1.2346=〉1.235=〉1.24

不知道是什么计算需要这样的特殊处理？

暴走族

我就是楼上兄弟所说的那样. 因为我们系统里出的报表和另外一张报表对不上,老是差1000元.由于金额是到万位,所以我以为是不是四舍五入方法不同的原因.现在还没找出原因.找到了告诉大家.

metmay

通常我都是把变量的小数位定义的比原来的长，比如2位小数，我定4位或者更长，等到算完了之后，才把它赋给报表中的2位长变量。这样就不会因为每次4舍5入，做个几百遍误差越来越大。

暴走族

楼上的好办法.收到了

ewmiscc

这是经典的做法！