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可能會溢出。