這種Round其實是按照銀行家算法，統計學上一般都用這種算法，比傳統的"四舍五入"要科學。
如果要使用傳統的"四舍五入"方法，可以使用下面函數：

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

       其實在VB、Excel、.net相關的語言中都有這個問題。