delphi的函數round、trunc、ceil、floor 和RoundTo

1.Round（四捨六入五留雙）

功能說明：對一個實數進行四捨五入。(按照銀行家算法)

例：
var
    i, j: Integer;
begin
    i := Round(1.5); // i等於2
    j := Round(2.5); // j等於2
end;

在Delphi中使用Round函數獲得的答案有時與咱們所預期的會不太同樣：採用的是四捨六入五留雙。即當舍或入位大於或

小於五時按四捨五入來處理，而當舍或入位等於五時，就要看前面一位是什麼，根據奇進偶不進，它老是返回一個偶數值。

例：            
i:= Round(11.5)//i等於12
i:= Round(10.5)//i等於10

這種Round實際上是按照銀行家算法，統計學上通常都用這種算法，比傳統的"四捨五入"要科學。
若是要使用傳統的"四捨五入"方法，能夠使用下面函數：
function RoundClassic(R: Real)

2.trunc（取得X的整數部分）
如：trunc(-123.55)=-123, floor(123.55)=123

3.ceil（取得大於等於X的最小的整數）

如：ceil(-123.55)=-123， ceil(123.15)=124

4.floor（取得小於等於X的最大的整數）

如：floor(-123.55)=-124，floor(123.55)=123

5.RoundTo(取得須要的小數個數)

直接使用RoundTo函數，須要uses中加入math。
RoundTo(1.245, -2);  = 1.25

須要注意的是，舊的Delphi版本Round函數採用的是四捨六入，逢五的時候是前面是奇數才入，是偶數則不入，delphi手冊幫助中的示例以下：
RoundTo(1234567, 3) 1234000
RoundTo(1.234, -2) 1.23
RoundTo(1.235, -2) 1.24
RoundTo(1.245, -2) 1.24

但delphi 7已經不是這樣的了，是直接四捨五入的：RoundTo(1.245, -2) = 1.25

注：floor和ceil是math unit裏的函數，使用前要先Uses Math