VB 6 - オーバーフロー例外 - Val（）関数を使用したランタイムエラー

Question

以下のコードを使用するとランタイムオーバーフロー例外が発生します。

私のアプリケーションはビジュアルベーシック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の数はVBAで利用可能な任意の型の変数にcan be storedより大きくされていることを電源998

に10である、1 * 10^998あります。

実際にこの数値で大きな数値演算を実行する場合は、Handling numbers larger than Long in VBAをチェックアウトする価値があります。

Answer 2

ただ溢れO/W 1を返す必要があります1d987入力時にこの

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

のような "強化" Val関数を使用します。 eも科学の表記法であり、Valはオーバーフローする可能性があることに注意してください。