delphi RoundTo

RoundTo函数是在math单元

 

要保留3位小数，当第四位是5时，会有以下情况发生：

1. Volume := RoundTo(1.2325,-3);    //--小数点第三位是奇数时就往前进一位，偶数就不会,这个得结果：

Volume  := 1.232;

2.  Volume := RoundTo(1.2335,-3);    //--小数点第三位是奇数时就往前进一位，偶数就不会,这个得结果：

Volume  := 1.234;

即当舍或入位为5且5为最后一位时，要看前面一位是奇数或是偶数：

奇数则进,比如roundto(2.435,-2)=2.44；

偶数则舍,比如roundto(2.445,-2)=2.44；