四舍六入逢五奇进偶不进

Function fround(ByVal x As Double, Optional ByVal Factor As Double = 1) As DoubleDim Temp As Double, FixTemp As Double'X 要修约的数'Factor 保留小数位数(如:1000，100，10，1，0.1,0.01)If (Factor > 1 And Factor Mod 10 <> 0) Or (Factor < 1 And 1 / Factor Mod 10 <> 0) Then Factor = Application.InputBox(Prompt:="输入正确的参数（如:100，10，1，0.1,0.01）：", Type:=1)If Factor <> 0 Then    Factor = 1 / Factor    Temp = x * Factor    FixTemp = Fix(Temp + 0.5 * Sgn(x))        If Temp - Int(Temp) = 0.5 Then            If FixTemp / 2 <> Int(FixTemp / 2) Then            FixTemp = FixTemp - Sgn(x)            End If        End If   fround = FixTemp / FactorElse   fround = xEnd IfEnd Function

=fROUND(A3,0.01)