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

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

不要用 复制代码的按钮。


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

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

**** Hidden Message *****

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

:lol佘思秋雾

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

:lol学习了

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

謝謝分享

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

谢谢分享！！！！！！！！
页: [1] 2 3
查看完整版本: Delphi RoundToFix5 四舍五入 非银行家算法