关于Delphi的四舍五入

最新推荐文章于 2019-01-17 14:39:16 发布
最新推荐文章于 2019-01-17 14:39:16 发布
阅读量123 收藏
点赞数

在网上常有人说Delphi的四舍五入有Bug！？
相反，我认为Borland考虑得很全面，这不是Bug！

Delphi帮助里面写得清清楚楚！

SimpleRoundTo ：四舍五入（不对称算数做法）
RoundTo：四舍六入，五入单（银行家做法）
RoundTo(1.235, -2) = 1.24
RoundTo(1.245, -2) = 1.24

RoundTo是银行家的 做法，
SimpleRoundTo才是我们平时说的四舍五入！

iteye_6233
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Delphi四舍五入
12-14
Delphi四舍五入函数。
DELPHI完美的四舍五入.rar
06-13
DELPHI最完美的四舍五入无BUG函数，是我花费了2天研究出来的成果，完美保留1-4个小数点，包内提供有EXCEL表取值可以把计算结果复制出来做结果对比，我已经随机取了十几万记录做对比，居然无一值和EXCEL的函数保留有...
delphi 四舍五入
weixin_33719619的博客
12-22 179
trunc取整 四舍五入 formatfloat('0.00', 2.1850)   看第二位，然后对后面的数字处理，偶数的话舍去，奇数四舍五入 System.Math.RoundTo(tempval,-2)    Round（四舍六入五留双） 传统的四舍五入函数RoundClassic function RoundClassic(R: Real): Int64; begin R...
DELPHI四舍五入函数
三界的专栏
04-19 1449
四舍五入是一种应用非常广泛的近似计算方法，其有算术舍入法和银行家舍入法两种。Delphi 的 Round 函数使用的是银行家舍入法，没有封装的算术舍入法函数。下面是本人自定义的算术舍入法函数。适合整数使用，负数的情况还需要改写。FUNCTION  TForm1.FixRoundTo(aValue :Extended;digit : integer) : Extended;BEGIN  result := trunc(aValue*Power(10,digit) + 0.5)/Power(10,digit);
Delphi数学运算当中四舍五入的问题
weixin_34404393的博客
01-08 336
在最近版本的Delphi Pascal 编译器中，Round 函数是以 CPU 的 FPU (浮点部件) 处理器为基础的。这种处理器采用了所谓的 "银行家舍入法"，即对中间值 (如 5.5、6.5) 实施Round函数时，处理器根据小数点前数字的奇、偶性来确定舍入与否，如 5.5 Round 结果为 6，而 6.5 Round 结果也为6, 因为 6 是偶数。  对于XXX.5的情况，整数部分是奇...
delphi7 FormatFloat 四舍五入
05-25
delphi7 FormatFloat 四舍五入时,某些情况下不进一,测试代码如下 procedure TForm1.FormShow(Sender: TObject); var a:double; begin a:=16.685; showmessage(formatfloat('0.00',a)); application.Terminate; ...
Delphi 自已写的四舍五入函数
05-14
在编程领域，尤其是在 Delphi 这样的面向对象的 Pascal 编程环境中，有时标准库提供的四舍五入函数可能无法满足特定需求，特别是在处理财务数据时。标准的四舍五入算法可能会导致非预期的结果，因为它们通常遵循银行...
delphi四舍五入例子
11-17
标题"delphi四舍五入例子"表明我们将探讨如何在Delphi中进行四舍五入的操作。描述中提到“一直没有好的控件”，暗示可能在寻找一种自定义或非标准的方法来实现这一功能。下面，我们将深入讲解Delphi中进行四舍五入的...
Delphi的四舍五入函数
wangyunyong0905的专栏
10-20 1377
function x_round(x: double): double;var  x10: double;  xx: integer;begin  x10 := abs(x) * 100 + 0.5;  xx := trunc(x10);  result := xx / 100;  if x    result:=-result;end;
关于delphi中真正四舍五入的问题
02-12
在delphi中真正实现四舍五入，比较format，round等方法，真正实现四舍五入
delphi标准四舍五入法
07-13
用ROUND不能实现我们日常意义的四舍五入，round是一种银行家的算法，四舍六入，五看寄偶。与我们日常习惯不一样。
Delphi中的四舍五入函数
sandy520的专栏
08-25 1312
一、四舍五入法    四舍五入是一种应用非常广泛的近似计算方法，其有算术舍入法和银行家舍入法两种。    所谓算术舍入法，就是我们通常意义上的四舍五入法。其规则是：当舍去位的数值大于等于5时，在舍去该位的同时向前位进一；当舍去位的数值小于5时，则直接舍去该位。    所谓银行家舍入法，其实质是一种四舍六入五留双（又称四舍六入五奇偶）法。其规则是：当舍去位的数值小于5时，直接舍去该位；当舍去位的数值
Delphi 10.3 四舍五入函数
Delphi开发局QQ群:32422310
01-17 476
//四舍五入函数 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 ra...
delphi 四舍五入Round函数【百帖整理】
what_is_Delphi的专栏
11-04 4754
在最近版本的Delphi Pascal 编译器中，Round 函数是以 CPU 的 FPU (浮点部件) 处理器为基础的。这种处理器采用了所谓的 "银行家舍入法"，即对中间值 (如 5.5、6.5) 实施Round函数时，处理器根据小数点前数字的奇、偶性来确定舍入与否，如 5.5 Round 结果为 6，而 6.5 Round 结果也为6, 因为 6 是偶数。 对于XXX.5的情况，
我是delphi老家伙，想进行Android开发，应该舍弃delphi用java吗？
zmj99m的专栏
10-04 638
对自己的想法不确定啊
Delphi自带四舍五入函数
zhaoxjzhao的专栏
07-12 1624
用delphi的同学大多数都知道Round（）函数不是四舍五入，于是乎大家想出各种办法写自己的四舍五入函数。其实Delphi本身自带了四舍五入函数，它就是Math.pas中的SimpleRoundTo()。本人记性不好，用的时候总想不起来这个函数的名字，刚才又是废了半天劲才找到这
delphi RoundTo
aldsot0997的博客
05-25 469
RoundTo函数是在math单元 要保留3位小数，当第四位是5时，会有以下情况发生： 1. Volume := RoundTo(1.2325,-3); //--小数点第三位是奇数时就往前进一位，偶数就不会,这个得结果： Volume := 1.232; 2. Volume := RoundTo(1.2335,-3); //--小数点第三位是奇数时就往前...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值