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 小数点四舍五入问题的主要内容,如果未能解决你的问题,请参考以下文章

Delphi编写程序,用 FloatToStr转换文本,怎样四舍五入保留两位小数

超级简单的DELPHI问题,取小数位

delphi 保留两位小数

delphi关于小数位精度的问题

delphi 中“/”和div的区别是啥?

delphi保留2位小数?如何实现。