delphi 小数点四舍五入问题
2021-02-14 11:16
阅读：549
标签：四舍五入 小数点 begin for 问题 小数 blog function var delphi 小数点四舍五入问题 标签：四舍五入 小数点 begin for 问题 小数 blog function var 原文地址：https://www.cnblogs.com/westsoft/p/8449603.html
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;
评论
亲，登录后才可以留言！