CInt不会一致地舍入Double值 - 如何删除小数部分？

当你需要删除小数部分时，可以使用以下方法：

1. 使用 Int 函数：

Dim num As Double = 12.34
Dim intNum As Integer = Int(num)

1. 使用 Fix 函数：

Dim num As Double = 12.34
Dim intNum As Integer = Fix(num)

1. 使用 CInt 函数：

Dim num As Double = 12.34
Dim intNum As Integer = CInt(num)

在这种情况下，CInt 函数会将 Double 值舍入为最接近的整数值，而不是向零舍入。这是因为 CInt 函数在舍入时使用了银行家舍入法，它会将大于等于 0.5 的数值向上舍入，而小于 0.5 的数值向下舍入。

如果你想要删除小数部分，可以使用以上方法中的任何一种。这些方法都会将小数部分删除，并将结果转换为整数。