Delphi RoundToFix5 四舍五入非银行家算法

wang_80919 · 发表于 2017-3-24 19:11:45

不要用复制代码的按钮。

[mw_shl_code=delphi,false]
/// <summary>
/// 四舍五入。
/// 要正负一致
/// By 爱吃猪头肉。
/// 可能 10.2.3 已经修改了这个负数的 bug，但是 Double 依然有问题。
/// </summary>
function RoundToFix5(const AValue: Extended;
const ADigit: TRoundToRange): Extended;[/mw_shl_code]

上面是定义，下面是实现。

游客，如果您要查看本帖隐藏内容请回复

9294341 · 发表于 2017-3-24 19:16:37

看看是怎么实现的

jim560115 · 发表于 2017-5-28 10:12:07

这是绝对要顶

wiseinfo · 发表于 2017-6-2 18:42:52

中华人民共和国万岁

jsg_jn · 发表于 2017-6-4 16:42:33

这是绝对要顶

ruoyu · 发表于 2017-7-10 10:56:36

看看是怎么实现的

hujiacheng · 发表于 2017-7-20 09:33:38

佘思秋雾

LAOTIESH · 发表于 2017-11-21 20:47:27

学习了

dx8888 · 发表于 2017-12-7 10:01:35

謝謝分享

snake_gao · 发表于 2017-12-8 19:14:00

谢谢分享！！！！！！！！

		自动登录	找回密码
密码			立即注册

Delphi RoundToFix5 四舍五入 非银行家算法

Delphi RoundToFix5 四舍五入非银行家算法