日付のエラー

質問

aspx（vbscript）でプログラムを作っています。

ある申請書を作っているのですが、その中で
テキストボックスに日付を入力して、その日付が[今日]より
前だとエラーになるというコードを作りたいのですが、

If Trim(textbox1.value) <>"" and Datevalue(textbox1.value) < Date Then
msgbox "日付が違います。"
End　If

としたのですが、テキストボックスに何も入力しないとエラーになって動いてくれません。テキストボックスに入力すればちゃんと動きます。
この項目は必須項目ではないのでテキストボックスに入力せずに申請する場合もあるので困っています。どのようにすればちゃんと動作してくれるのでしょうか。

回答No.2

K-Sogacchi · ベストアンサー

論理演算子「And」を使用した場合、前半で条件から外れたとしても、内部的には
後半の判定処理も実行されてしまいます。
それを防ぐには、論理演算子を「AndAlso」に変更してみてください。
これであれば、前半の判定で条件から外れた場合は後半の判定処理が動作しません。
ASPはやった事無いけど、この辺はWinアプリのコーディングと同じですよね…？

お礼

ありがとうございます。無事に動作いたしました。
基本的なことだったのですね。初心者なので気が付きませんでした。
もっと勉強したいと思います。

回答No.1

n-jun

１つめのIfでひづけがあるかどうか、
２つめのIfで”その日付が[今日]より前だとエラー”
と判定させるのはどうでしょう？

andですから入っていなければ”今日との比較”ができないので、
エラーになるのでは？と思います。
あとはエラー関数をうまく使うのかな？

お礼

ありがとうございます。
今回は1つのIf文で作りたかったので、今後の参考にさせていただきます。