VBA舍入遇到的一个奇怪问题

灰袍法师

chenzyyysl 发表于 2012-5-8 16:55
这个问题估计是由于浮点误差所致，刚才几个朋友给的链接中，13楼的我电脑报有风险，没敢用，14楼的看起太复 ...

直接加上一个小数值就可以了
不需要搞这么复杂
Function myround(num1, num2)
myround = Round(num1 + 0.000000000000001, num2)
End Function

liucqa

支持法师         

chenzyyysl

灰袍法师 发表于 2012-5-8 22:52
直接加上一个小数值就可以了
不需要搞这么复杂
Function myround(num1, num2)

法师，太简单了吧？4.025，2就是得出的4.03

momoca2006

看下高手们的自定义函数，学习下

exorca

03版的都不会， 嘿嘿

灰袍法师

chenzyyysl 发表于 2012-5-9 08:06
法师，太简单了吧？4.025，2就是得出的4.03

我的这个方法是干脆取消 4舍6入5看单双，回复到Excel工作表函数的round模式，但是又比application.round高效一点。
其实按微软自己的解释，VBA的4舍6入5看单双，实际上应该是 round to even，即舍入到最接近的双数
round(4.025,2)=4.03 就是个不符合微软规则的错误了
话说我还是喜欢简单的四舍五入。

chenzyyysl

灰袍法师 发表于 2012-5-9 14:17
我的这个方法是干脆取消 4舍6入5看单双，回复到Excel工作表函数的round模式，但是又比application.round高 ...

如用4舍5入，感觉用int(value+0.5)为基础比较传统。

我工作中的要求是5成双，一年做的工作都要改。

一指禅

一位网友做的函数大家测试下！
Function CRound(C As String, D As Integer)
Dim dotlocation As Integer  '定义小数点位置变量
dotlocation = InStr(C, ".")   '确定小数点的位置
    If Mid(C, dotlocation + D + 1, 1) = 5 Then '判断小数点后第d+1位是否为5
         If Len(C) <= dotlocation + D + 1 And Mid(C, dotlocation + D, 1) Mod 2 = 0 Then
        CRound = --Left(C, dotlocation + D)
        Else
        CRound = Round(C, D)     '为5且5后没有数以及5前一位为偶数，用left函数修约，否则用round()函数修约
        End If
    Else
    CRound = Round(C, D) ''不为5，直接用round()函数修约
    End If
End Function

http://club.excelhome.net/forum.php?mod=viewthread&tid=800269

chenzyyysl

一指禅 发表于 2012-5-9 22:29
一位网友做的函数大家测试下！
Function CRound(C As String, D As Integer)
Dim dotlocation As Integer ...

谢谢禅师，我也是和这位网友一样做医药数据的。

从这个CROUND来看，没有考虑在待修约数在计算中产生浮点误差，但因为所定义变量是字符型，用8.05/2测试，看来是先有个舍入处理，没有出现浮点误差问题，这个可能也是个解决思路。
不过我实际工作中有不少是计算来的，可能不太适用。

不过这个函数好像只能是小数点后面的修约，对修约到整数位如-2，百位的看来不支持。

chenzyyysl

采用下面的进行测试
Sub xxx()
   With Sheets(1)
      For i = 1 To 100
      .Cells(i, 1) = (8 + i / 100) / 2
      .Cells(i, 2) = Round((8 + i / 100) / 2, 2)
      .Cells(i, 3) = CRound((8 + i / 100) / 2, 2)
      .Cells(i, 4) = round55((8 + i / 100) / 2, 2)
      Next i
   End With
End Sub

筛选出结果不同的如下图，黄色的是修约错误的