写了一个四舍六入五成双的函数，有的数据带进去结果不对

channelv

.
我写了一个四舍六入五成双的函数，但是我上面的数据带出来是0.0079，明显是不对的，应该是0.0080，不知道什么原因？

高个子

VBA的round函数好像就是四舍六入的？

channelv

高个子 发表于 2023-6-1 21:05
VBA的round函数好像就是四舍六入的？

还有五成双，进位前要看前面是奇数还是偶数

静听溪流

channelv 发表于 2023-6-1 22:04
还有五成双，进位前要看前面是奇数还是偶数

vba 自带的就是四舍六入五成双

channelv

静听溪流 发表于 2023-6-1 22:21
vba 自带的就是四舍六入五成双

改成round还是不对

高个子

channelv 发表于 2023-6-1 23:20
改成round还是不对

浮点问题，改一下你的公式就可以了
=ROUNDx(ROUND(AVERAGE(F28:R29),8),4)

channelv

高个子 发表于 2023-6-2 09:26
浮点问题，改一下你的公式就可以了
=ROUNDx(ROUND(AVERAGE(F28:R29),8),4)

好的，谢谢，后来我又改了我的函数，x As String，我发现结果也是对的，我这样是不是也可以？但是我有点没明白原理

1. Function Roundx(x As String, n As Byte)
   
2.         '小数
   
3.         y = x * 10 ^ n - Int(x * 10 ^ n)
   
4.         '
   
5.        ' MsgBox VBA.IsNumeric(x)
   
6.         Z = Int(x * 10 ^ n)
   
7.         If y > 0.5 Then
   
8.                 p = (Int(x * 10 ^ n) + 1) / 10 ^ n
   
9.             ElseIf y < 0.5 Then
   
10.                 p = Int(x * 10 ^ n) / 10 ^ n
    
11.             ElseIf (Z Mod 2) = 0 Then
    
12.                 p = Int(x * 10 ^ n) / 10 ^ n
    
13.             ElseIf (Z Mod 2) <> 0 Then
    
14.                 p = (Int(x * 10 ^ n) + 1) / 10 ^ n
    
15.         End If
    
16.         Roundx = p
    
17. End Function
    

复制代码

channelv

高个子 发表于 2023-6-2 09:26
浮点问题，改一下你的公式就可以了
=ROUNDx(ROUND(AVERAGE(F28:R29),8),4)

1. Function Roundx(x As String, n As Byte)
   
2.         '小数
   
3.         y = x * 10 ^ n - Int(x * 10 ^ n)
   
4.         '
   
5.        ' MsgBox VBA.IsNumeric(x)
   
6.         Z = Int(x * 10 ^ n)
   
7.         If y > 0.5 Then
   
8.                 p = (Int(x * 10 ^ n) + 1) / 10 ^ n
   
9.             ElseIf y < 0.5 Then
   
10.                 p = Int(x * 10 ^ n) / 10 ^ n
    
11.             ElseIf (Z Mod 2) = 0 Then
    
12.                 p = Int(x * 10 ^ n) / 10 ^ n
    
13.             ElseIf (Z Mod 2) <> 0 Then
    
14.                 p = (Int(x * 10 ^ n) + 1) / 10 ^ n
    
15.         End If
    
16.         Roundx = p
    
17. End Function
    

复制代码

我只是把x 改成了 x As String，结果也是对的，我能这样改么？它的原理是什么，有点没明白

高个子

channelv 发表于 2023-6-2 11:30
我只是把x 改成了 x As String，结果也是对的，我能这样改么？它的原理是什么，有点没明白

VBA会把文本数字转成数字，问题应该不大。。