Delphi 10.3 四舍五入函数

最新推荐文章于 2022-08-12 10:32:39 发布

战石电子

最新推荐文章于 2022-08-12 10:32:39 发布

阅读量524

点赞数

分类专栏： Delphi 文章标签： delphi 四舍五入函数

泰山老父神枕传承人战小东

本文链接：https://blog.csdn.net/xyzhan/article/details/86524104

版权

Delphi 专栏收录该内容

227 篇文章

订阅专栏

本文介绍了一个用于处理浮点数四舍五入的函数，该函数特别适用于货币字段，确保在乘以汇率等操作时数值能精确到两位小数。通过判断小数部分与0.5的关系来决定是否进位。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//四舍五入函数
function frmBS1.RoundIt(work: double): double;
begin   //Round .5 up always.
//Currency fields are stored with 4 decimals, so need to be rounded to 2 decimals when multiplying by exchange rates, etc.
//example: frmBS1.RoundIt(amount * rate * 100)/100;  
  if work >0 then
    begin
      if Int(work + 0.5) > Int(work) then
        result := Int(work) + 1
      else
        result := Int(work);
    end
  else
    begin
      if Int(work - 0.5) < Int(work) then
        result := Int(work) - 1
      else
        result := Int(work);
    end;
end;