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

teefir

学习了！！！！

wxd95

wxd95 发表于 2019-11-3 13:55
加了一个判断后面有没有浮点数，程序修改后通过比较，修约后的数据都正确。

测试发现，对整数修约还是有点问题，修改后没发现问题，请大家帮忙测试一下

jingfalong

试试先

hcm19522

INT((B3*10^IFERROR(LEN(B3)-FIND(".",B3),)+5-(MOD(B3*10^IFERROR(LEN(B3)-FIND(".",B3),)+15,20)=0))/10)*10^-(IFERROR(LEN(B3)-FIND(".",B3),)-1)

YZC51

一指禅 发表于 2012-10-7 23:52
参数e 是数值的有效位数！

Function jw(x, y) As Double     '四舍六入五成双
    Dim ij As Double
    x = x * (10 ^ y)
    x1 = Int(x)
    x2 = Format(x - x1, "0.00")
    x3 = x1 Mod 2
    If x2 > 0.5 Or (x2 = 0.5 And x3 <> 0) Then
        x1 = x1 + 1
    End If
    jw = x1 * (10 ^ (-y))
End Function

YZC51

或者
Function Yround(c, d)  '四舍六入五成双
    If c = 0 Then Yround = 0: Exit Function
    If c > 0 Then m = 1 Else m = -1
    c = Abs(c)
    If d > 6 Then d = 6
    Yround = Val((Round(CDec(c + 10 ^ d), d) - 10 ^ d) * m)
End Function

YZC51

请参考，函数公式的

=TRUNC(ROUND(ABS(A1),2+(ROUND(MOD(ABS(A1)/1%,2),9)=0.5)),2)*SIGN(A1)

WYS67

YZC51 发表于 2020-1-7 19:15
请参考，函数公式的

=TRUNC(ROUND(ABS(A1),2+(ROUND(MOD(ABS(A1)/1%,2),9)=0.5)),2)*SIGN(A1)

哈哈，老师的足迹遍论坛啊！

jok22

YZC51 发表于 2020-1-7 19:15
请参考，函数公式的

=TRUNC(ROUND(ABS(A1),2+(ROUND(MOD(ABS(A1)/1%,2),9)=0.5)),2)*SIGN(A1)

(400-397.8)/400*10这个结果测试为0.05，应该为0.06

jok22

wxd95 发表于 2019-12-22 21:20
测试发现，对整数修约还是有点问题，修改后没发现问题，请大家帮忙测试一下

(400-397.8)/400*100对这个计算结果修约到1位有问题