こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

投稿日時 - 2005-11-28 14:23:22

QNo.1806702

すぐに回答ほしいです

質問者が選んだベストアンサー

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


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

で、あればそれぞれに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に空文字等入れる必要はありません。

以上です。
 

投稿日時 - 2005-11-28 16:30:57

ANo.2

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

こんにちは。


  If val(年月日)<>0 Then


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

投稿日時 - 2005-11-28 14:35:51

あなたにオススメの質問