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

 procedure TForm1.btn1Click(Sender: TObject);
var
  sedt1: string;
begin
  sedt1 := edt1.Text;
  edt2.Text := FloatToStr(RoundFloat(StrToFloat(sedt1), 2));
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  sedt1: string;
begin
  sedt1 := edt1.Text;
  edt2.Text := FloatToStr(RoundFloatZero(StrToFloat(sedt1), 2));
end;

procedure TForm1.btn3Click(Sender: TObject);
var
  sedt1: string;
begin
  sedt1 := edt1.Text;
  edt2.Text := FloatToStr(Round(StrToFloat(sedt1)));
end;

procedure TForm1.btn4Click(Sender: TObject);
var
  sedt1: string;
begin
  sedt1 := edt1.Text;
  edt2.Text := FloatToStr(trunc(StrToFloat(sedt1)));
end;

procedure TForm1.btn5Click(Sender: TObject);
var
  sedt1: string;
begin
  sedt1 := edt1.Text;
  edt2.Text := FloatToStr(ceil(StrToFloat(sedt1)));
end;

procedure TForm1.btn6Click(Sender: TObject);
var
  sedt1: string;
begin
  sedt1 := edt1.Text;
  edt2.Text := FloatToStr(floor(StrToFloat(sedt1)));
end;

procedure TForm1.btn7Click(Sender: TObject);
var
  sedt1: string;
begin
  sedt1 := edt1.Text;
  edt2.Text := FloatToStr(RoundTo(StrToFloat(sedt1), -2));
end;

{ TForm1 }

function TForm1.RoundFloat(AFloat: Double; ADigits: Integer): Double;
var
  sFormat: string;
  eAvoidError: extended;
begin
  sFormat := '#.' + StringOfChar('0', ADigits);
  eAvoidError := StrToFloat(FloatToStr(AFloat));
  Result := StrToFloat(FormatFloat(sFormat, eAvoidError));
end;

function TForm1.RoundFloatZero(AFloat: Double; ADigits: Integer): Double;
var
  sFormat: string;
  eAvoidError: extended;
begin
  sFormat := '0.' + StringOfChar('0', ADigits);
  eAvoidError := StrToFloat(FloatToStr(AFloat));
  Result := StrToFloat(FormatFloat(sFormat, eAvoidError));
end;