[求助]实现"四舍六入五单双"的函数或方法

sdlyliu_99 · 发表于 2004-4-26 19:57

[求助]实现"四舍六入五单双"的函数或方法

有没有一种方法实现,"四舍六入五单双",即,如舍去位数为5时,要看它前面的数是双数还是单数,是双数时舍去,是单数时进位.

如:5.38舍入后为5.4

5.34舍入后为5.3

5.35舍入后为 5.4, 而5.45舍入后为 5.4

taller · 发表于 2004-4-26 20:24

试试这个自定义函数

Function myRound(ByVal num As Single, ByVal dec As Integer) As Single With Application.WorksheetFunction num = num * .Power(10, dec) num1 = .RoundDown(num, 0) num2 = num - num1 If num2 > 0.5 Or (num2 = 0.5 And Abs(num1 / 2 - Round(num1 / 2, 0)) > 0.00001) Then num1 = num1 + 1 num1 = num1 / .Power(10, dec) End With myRound = num1 End Function

sdlyliu_99 · 发表于 2004-4-26 21:45

我不知以上自定义函数是如何应用的,请高手指点一下好吗?

[此贴子已经被作者于2004-4-26 22:25:43编辑过]

taller · 发表于 2004-4-27 08:47

把上述代码拷贝到文件的模块中,然后在单元格内输入=myround(5.35,1)

[此贴子已经被作者于2004-4-28 8:48:32编辑过]

Samsea · 发表于 2004-4-27 21:11

=ROUND(A1,1)-IF(MOD(A1*100,20)=5,0.1,0)

A1=5.35 四舍五入后是 5.4

A1=5.45 四舍五入后也是 5.4

sdlyliu_99 · 发表于 2004-4-29 21:16

samsea:

非常感谢你,你的方法非常好,真是一个很好的思路,再次感谢.

apolloh · 发表于 2004-11-25 14:08

5.4501 取一位小数舍入后应为5.5

五单双是5后面为零才不进位，看来大多数朋友和偶开始一样也是没有明白其中的规则。

这得感谢shangyu斑竹及时指正了偶。

mnznz001 · 发表于 2009-1-7 23:55

谢谢！！！！！！！！！

abc123 · 发表于 2009-5-7 14:36

学习，学习，再学习！

hwb_101 · 发表于 2009-6-14 21:22

好思路

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

[求助] [求助]实现"四舍六入五单双"的函数或方法