delphi 小数点四舍五入问题

Posted 我的学习笔记

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了delphi 小数点四舍五入问题相关的知识，希望对你有一定的参考价值。

function ARoundN(v: Double; n: Integer): Double;
var
  I:Integer;
begin
  result:=v;
  for I:=0 to n-1 do
    begin
      result:=result*10;
    end;
  result:=Round(result);
  for I:=0 to n-1 do
    begin
      result:=result/10;
    end;
end;

 

以上是关于delphi 小数点四舍五入问题的主要内容，如果未能解决你的问题，请参考以下文章