vbs 値が「""」時の計算

Question

タイトルの件について質問です。

変数aに以下コードの計算結果などを格納したいと思っています。
""の時は0として計算したいです。
計算に使われる変数(今回は変数b)に「""」などが入っていた場合どのようにすればエラーなく計算できますでしょうか。

b = ""の場合は変数bはどのような状態になるのでしょうか。

Dim a
Dim b
Dim c
a="100"
b=""

IF b <> "" Then
	a = a - 60
ELSE
	a = a - b - 60
END IF

試したソース1

a = CInt(a) - CInt(b) - 60

試したソース2

a = CInt(a) - 60
a = CInt(a) - CInt(b)

試したソース3

IF b <> "" Then
	a = a - 60
ELSE
	b = 0
	a = a - b - 60
END IF

格納したい内容

a = 40

Comments

[YAmaGNZ]

bが""の時にa-bと計算していますが、どのような結果を望んでいるのですか？

[hj_zebra]

>YAmaGNZさん
内容がきちんと記述されていませんでした。申し訳ないです。
""の時は0として計算したいです。

[y_waiwai]

ソース３でいいように思いますが、なにかエラーが出るんでしょうか

[hj_zebra]

>y_waiwaiさん
たしかにソース３で実行するとできました。
元ソースでは実行できなかったと感じていたので記述したのですが差異があるようなのですこし検証してからまた編集や回答させていただきます。ご協力ありがとうございます。

[hj_zebra]

>y_waiwaiさん
下記のように記述していたためエラーが他ソース同様のエラーが発生しておりました。
IF文の処理中にb=0を格納しておかないとエラーになる理由はなぜでしょうか。
IF b <> "" Then
b = 0
END IF

IF b <> "" Then
a = a - 60
ELSE
a = a - b - 60
END IF

[y_waiwai]

よく見たら論理が逆ですねｗ

IF b == "" Then
a = CInt(a) - 60
ELSE
a = CInt(a) -CInt(b) - 60
END IF

回答の方法がスマートですがｗ

[YAmaGNZ]

VBAなんで、
If b = "" Then
で大丈夫です。

[hj_zebra]

>y_waiwaiさん
シンプルに間違えてましたｗ
教えていただきありがとうございました。

Answer 1

CIntは引数をintに変換できない場合にエラーとなります。
また、a - b - 60と書いた場合、内部で型変換が行われます。
この時に""はintに変換できないのでエラーとなります。

また、If文の条件指定を理解されていないように感じます。

If b <> "" Then
    'bが""ではない場合
Else
    'bが""の場合
End If

となります。

IsNumeric関数にて数字かどうか判断できます。
ですから、数字として変換できる時と変換できない時で場合分けして計算すればよろしいかと思います。
（""の時だけではなく数値として認識できない時としました。""の時だけであれば、そのようにIf文の条件を変更してください）

'IsNumeric関数を使って数値に変換できるのか判断する
If 数字として変換できるか？ Then
    '数字として変換できる場合
    a = CInt(a) - CInt(b) - 60
Else
    '数字として変換できない場合
    a = CInt(a) - 60
End If

'bを恒久的に変更していいのであれば次の方法でもいいかもしれません。
If 数字として変換できないか？ Then
    '数字として変換できない場合
    b = "0"
End If
a = CInt(a) - CInt(b) - 60

といった感じですかね

Answer 2

変数aもbも文字列で数字のみで構成されていることが前提ですが、
一番手っ取り早いのがCInt()する際に"0"対象変数の左に0を付加する方法かな。

a="100"
b=""
a = CInt("0" & a) - CInt("0" & b) - 60