0をNULLへ

質問

Visual Basic6について質問です。
空白のときにテキストボックスに数字の0がはいるように、
年月日日 = Format(Val(Text(0).Text), "0000") & Format(val(Text(1).Text), "00") & Format(val(Text(2).Text), "00")
とう制御をしています。

フォームロードで以下の処理を実行すると0000や00の場合テキストボックスに0が入ってしまいます。
これを防ぎたいのですが0がはいったときはNull空白にする方法はありますか？

If 年月日 <> "" Then
Text(0).Text = CInt(Mid(年月日, 1, 4))
Text(1).Text = CInt(Mid(年月日, 5, 2))
Text(2).Text = CInt(Mid(年月日, 7, 2))
Else
Text(0).Text = ""
Text(1).Text = ""
Text(2).Text = ""
End If

回答No.2

taocat · ベストアンサー

再度のこんにちは。補足です。

年、月、日、それぞれに、０がある場合があるということですか？

で、あればそれぞれにIF文で

If Val(Mid(年月日, 1, 4)) <> 0 Then
　　Text(0).Text = Val(Mid(年月日, 1, 4))
Else
　　Text(0).Text = ""
End If

If Val(Mid(年月日, 5, 2)) <> 0 Then
　　Text(1).Text = Val(Mid(年月日, 5, 2))
Else
　　Text(1).Text = ""
End If

If Val(Mid(年月日, 7, 2)) <> 0 Then
　　Text(2).Text = Val(Mid(年月日, 7, 2))
Else
　　Text(2).Text = ""
End If

それから、フォームがロードされると時はイニシャライズされますから、わざわざ

　Text(0).Text = ""

などとTextBoxに空文字等入れる必要はありません。

以上です。

回答No.1

taocat

こんにちは。

　　If val(年月日)<>0 Then

ではどうですか？
以上です。