2Pascal-新时代的Pascal

标题: Delphi RoundToFix5 四舍五入非银行家算法 [打印本页]

作者: wang_80919 时间: 2017-3-24 19:11
标题: Delphi RoundToFix5 四舍五入非银行家算法
不要用复制代码的按钮。

[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
看看是怎么实现的

作者: jim560115 时间: 2017-5-28 10:12
这是绝对要顶

作者: wiseinfo 时间: 2017-6-2 18:42
中华人民共和国万岁

作者: jsg_jn 时间: 2017-6-4 16:42
这是绝对要顶

作者: ruoyu 时间: 2017-7-10 10:56
看看是怎么实现的

作者: hujiacheng 时间: 2017-7-20 09:33

佘思秋雾

作者: LAOTIESH 时间: 2017-11-21 20:47

学习了

作者: dx8888 时间: 2017-12-7 10:01
謝謝分享

作者: snake_gao 时间: 2017-12-8 19:14
谢谢分享！！！！！！！！

作者: wqmeng 时间: 2018-1-12 09:36
看看。怎么实现的

作者: jianwt 时间: 2018-1-12 11:45
看看这个怎么样

作者: yxhome 时间: 2018-1-12 13:13
谢谢楼主学习下

作者: ken.hsiao 时间: 2018-3-2 01:57
看一下！

作者: ghs_79 时间: 2018-3-8 08:18
/// <summary>
/// 四舍五入。
/// 要正负一致
/// By 爱吃猪头肉。
/// </summary>
function RoundToFix5(const AValue: Extended;
const ADigit: TRoundToRange): Extended;

作者: eogo 时间: 2018-4-23 04:02
是否需自行编写呢？

作者: keeping 时间: 2018-5-10 00:42
RE: Delphi RoundToFix5 四舍五入

作者: dhfree 时间: 2018-5-30 05:25
看看是怎么实现的

作者: lotou 时间: 2018-6-13 03:04
看看是怎么实现的

作者: tyake 时间: 2018-7-28 03:16
顶一个，

作者: lyf 时间: 2018-8-10 07:26
看看呗,还有字节限制呀。

作者: bjack 时间: 2018-10-20 04:12
困扰好久了赶紧学习! 谢wang_80919大

作者: whjfyc 时间: 2018-11-15 02:42
这个不错，顶顶。

作者: 先知三日 时间: 2018-11-29 02:51
mark一个

作者: vs_hwf 时间: 2019-1-9 06:20
顶顶，顶顶，顶顶，顶顶，

作者: jianmufei 时间: 2019-1-25 14:18
http://www.2pascal.com/thread-3014-1-1.html

作者: qddmh 时间: 2019-3-13 04:14
非常感谢！！

作者: hfydiy 时间: 2019-8-27 09:14
困扰好久了赶紧学习!

作者: crystalxp 时间: 2019-10-25 08:32

:):):):):):)

作者: 先来一铜大铲 时间: 2020-3-2 06:36
偷偷的学习

欢迎光临 2Pascal-新时代的Pascal (http://www.2pascal.com/)