delphi 四捨五入取整函數

標籤：

一、四捨五入法
    四捨五入是一種應用非常廣泛的近似計算方法，其有算術舍入法和銀行家舍入法兩種。
    所謂算術舍入法，就是我們通常意義上的四捨五入法。其規則是：當捨去位的數值大於等於5時，在捨去該位的同時向前位進一；當捨去位的數值小於5時，則直接捨去該位。
    所謂銀行家舍入法，其實質是一種四捨六入五留雙（又稱四捨六入五奇偶）法。其規則是：當捨去位的數值小於5時，直接捨去該位；當捨去位的數值大於等於6 時，在捨去該位的同時向前位進一；當捨去位的數值等於5時，如果前位元值為奇，則在捨去該位的同時向前位進一，如果前位元值為偶，則直接捨去該位。
    綜上所述，兩種舍入法所得結果不盡一致，因此在使用時必鬚根據實際需要加以區別。否則會出現一些莫明其妙的偏差。
    二、Delphi中的四捨五入函數
    眾所周知，Delphi中有一個四捨五入取整函數Round。但它是按銀行家舍入法的規則實施捨入操作的，Delphi中沒有按算術舍入法規則實施捨入操 作的四捨五入取整函數。為此，本人編寫了一個基於算術舍入法的四捨五入取整函數RoundEx作為對Delphi的補充。具體實現如下： 

 

function RoundClassic(R: Real): Int64; begin   Result:= Trunc(R);   if Frac(R) >= 0.5 then     Result:= Result + 1; end; 

delphi 四捨五入取整函數