终极完美解决四舍六入五留双

三流高手 · 发表于 2012-10-6 14:26

论坛上至今为止，最易用，代码最简单的四舍六入五留双！
这是一个自定义函数，附件内有说明。

献给ExcelHome及广大E友分享。

四舍六入五留双_终极完美版.rar (7.74 KB, 下载次数: 3451)

补充内容 (2017-9-4 20:07):
按四舍六入五留双的规则进行有效数字修约
http://club.excelhome.net/thread-1367138-1-1.html
(出处: ExcelHome技术论坛)

补充内容 (2018-2-7 21:27):
注意！85楼有最新的文件，如果遇到浮点误差的须下载更新！[/b]

一指禅 · 发表于 2012-10-6 15:10

楼主思路很巧妙
再加一有效数位功能！
Function Yround(c#, d%, e%)
Yround = VBA.Round(CDec(c), d)
If Yround > Int(Yround) Then e = e + 1
Yround = Left(Yround, e) * 1
End Function

liucqa · 发表于 2012-10-7 18:34

支持一下

WJX-online · 发表于 2012-10-7 20:30

一指禅发表于 2012-10-6 15:10
楼主思路很巧妙
再加一有效数位功能！
Function Yround(c#, d%, e%)

请问后面的3个参数分别是什么啊？不是一个有效位数而已吗，那后面那个是什么“e%"?

一指禅 · 发表于 2012-10-7 23:52

WJX-online 发表于 2012-10-7 20:30
请问后面的3个参数分别是什么啊？不是一个有效位数而已吗，那后面那个是什么“e%"?

参数e 是数值的有效位数！

lzqmsy · 发表于 2012-10-16 00:11

很好学习了,谢谢

zz5151353 · 发表于 2012-10-16 10:27

收藏學習,謝謝樓主提供分享 !!!

口是心非 · 发表于 2012-10-19 11:40

你好,楼主,我刚学习vba,您能否将此段代码展开了解释解释啊,越详细越好,我函数没啥问题,但vba总感觉一直没入门,多谢.

柚子哦 · 发表于 2012-10-19 15:21

同round有什么不同，表里的25.225得出的为25.22；而25.235得出的25.24；两个一睇，小数点第三位都是5为什么一个是进数，一个不进呢？
是这样的话，用ROUND不是比较好咩

三流高手 · 发表于 2012-10-22 20:01

柚子哦发表于 2012-10-19 15:21
同round有什么不同，表里的25.225得出的为25.22；而25.235得出的25.24；两个一睇，小数点第三位都是5为什么 ...

四舍六入五留双，在很多行业都有应用（而且是行业标准规定必须这样），楼主可百度一下有关文章

		自动登录	找回密码
密码			免费注册

[分享] 终极完美解决四舍六入五留双

评分