[已解决]整型数据的转换

爱疯

Option Explicit
Dim x As Integer

Sub test1()
    x = 6.5
    MsgBox x
End Sub

Sub test2()
    x = 7.5
    MsgBox x
End Sub

为什么test2()返回8，而不是7？

谢谢！

[em04]

最佳答案

月排行榜 / 总排行榜

amulee

2009-9-18 15:23

自动四舍五入。

至于为什么是8，就是VBA.Round和Worksheetfunction.Round的区别。

两个方法不一样的：当精度的后一位是5，看前一位。

VBA.Round是凑偶数的。

Worksheetfunction.Round没上述限制。

这里四舍五入采用的是VBA.Round

跳转到最佳答案楼层

雨狐

Integer是整型，小数将自动舍入

函数小菜鸟

变量类型的原因

lpsh1985

[em04][em04]

默认类型是整型，你的是7.5，四舍五入啊

爱疯

QUOTE:

以下是引用雨狐在2009-9-18 15:19:00的发言：
Integer是整型，小数将自动舍入

谢谢雨狐！！

我也只知道要舍入 [em04]

而不知道舍入的标准，比如1楼例子。

amulee

自动四舍五入。

至于为什么是8，就是VBA.Round和Worksheetfunction.Round的区别。

两个方法不一样的：当精度的后一位是5，看前一位。

VBA.Round是凑偶数的。

Worksheetfunction.Round没上述限制。

这里四舍五入采用的是VBA.Round

爱疯

QUOTE:

以下是引用lpsh1985在2009-9-18 15:23:00的发言：

[em04][em04]

默认类型是整型，你的是7.5，四舍五入啊

如果是四舍五入，那 .................... test1()为什么返回6，而不是7?

雨狐

QUOTE:

以下是引用amulee在2009-9-18 15:23:00的发言：

自动四舍五入。

至于为什么是8，就是VBA.Round和Worksheetfunction.Round的区别。

两个方法不一样的：当精度的后一位是5，看前一位。

VBA.Round是凑偶数的。

Worksheetfunction.Round没上述限制。

这里四舍五入采用的是VBA.Round

凑偶数,学习了，真没注意过！

爱疯

QUOTE:

以下是引用amulee在2009-9-18 15:23:00的发言：

自动四舍五入。

至于为什么是8，就是VBA.Round和Worksheetfunction.Round的区别。

两个方法不一样的：当精度的后一位是5，看前一位。

VBA.Round是凑偶数的。

Worksheetfunction.Round没上述限制。

这里四舍五入采用的是VBA.Round

可是，我这样试了下：

Sub test3()

    Dim x As Integer
   
    x = 7.5
   
    MsgBox x
    MsgBox VBA.Round(x, 0)
    MsgBox Application.WorksheetFunction.Round(x, 0)
   
End Sub

无论x=6.5还是7.5，三句msgbox返回的结果都一样？

函数小菜鸟

对啊

发现了和爱疯同样的问题 为什么 6.5返回6 ，而7.5返回8 

思考中……

Sub test4()

    Dim x As Integer
   
    x = 6.5
   
    MsgBox x
    MsgBox VBA.Round(x, 0)
    MsgBox Application.WorksheetFunction.Round(x, 0)
   
   
       
    x = 7.5
   
    MsgBox x
    MsgBox VBA.Round(x, 0)
    MsgBox Application.WorksheetFunction.Round(x, 0)
End Sub