VBA：溢出错误

Question

我有一个错误，我不明白为什么

我有一个我没有碰过的功能（没有错误），现在它不起作用了...我的功能刚好在线

我尝试了函数CDbl（）并使用double类型变量

我收到溢出错误

号码= 1341.0937961001

NbDecimal = 2

Function Truncate(Number As Double, NbDecimal As Integer) As Double
    Truncate = Int(Number * 10 ^ NbDecimal) / (10 ^ NbDecimal)
End Function 'Error here : Overflow

我需要帮助

Answer 1

当Number * 10 ^ nbDecimal超过32767时，它将溢出，因为那是VBA将存储在整数中的最大数字。

其实我错了：仅当您使用CInt（）而不是Int（）时，它将溢出

Answer 2

要补充Charles Williams所说的话，您可能希望将数据类型更改为Long。