VB 6 - 溢出异常 - 使用Val（）函数的运行时错误

Question

使用下面的代码时，我得到运行时溢出异常：

我的应用程序在visual basic 6.0中。

Private Sub Command1_Click() 
Dim strItn As String 
strItn = "1d998" 'when strItn has '1d998' then only error comes 

If Val(strItn) = 0 Then 
    MsgBox ("test1") 
Else 
    MsgBox ("else") 
End If 

End Sub 

Answer 1

在科学记数法，1d998是1 * 10^998，这是十到电源998。

该数字是在VBA可用的任何类型的变量比can be stored更大。

如果你真的想用这个数字执行大数运算，可能值得检查Handling numbers larger than Long in VBA。

Answer 2

只需使用 “增强” Val功能这样

Public Function C_Val(ByVal Value As String) As Double 
    C_Val = Val(Replace(Replace(Value, "e", "_"), "d", "_")) 
End Function 

在1d987输入应该返回1瓦特/ O四溢。请注意，e也是科学记数法，并且Val可能会溢出。