テキストにかかれた日付を「細かく」比較するには?

解決


まぼろし  2005-04-27 23:05:17  No: 121310

テキストに入力した日付がyyyy/mm/ddの形になっているか比較するには
下のように書けばいいと過去ログにありました。
    Dim sDate As String
    
    sDate = Text1.Text
    
    If IsDate(sDate) Then
        If sDate = Format$(sDate, "yyyy/mm/dd") Then
            MsgBox "正しい日付です"
        Else
            MsgBox "日付の記述が間違ってます"
        End If
    Else
        MsgBox "日付ではありません"
    End If
しかしこのように書いても、入力した日付が
2005/01/  や  200/4  でも処理を通過してしまいます。
これを「年・月・日がきちんと入力されていないと処理を通過できない」
ようにするにはどうしたらいいのでしょうか?
どなたかご指導していただけませんか。


特攻隊長まるるう  2005-04-27 23:50:09  No: 121311

>しかしこのように書いても、入力した日付が
>2005/01/  や  200/4  でも処理を通過してしまいます。
通過しません。もう一度コードを確認して下さい。
サンプルコードは改造せず、そのままで実行して下さい。


まぼろし  2005-04-28 00:13:31  No: 121312

どうやら別の個所がおかしかったようです。
特攻隊長まるるうさんお手数かけました。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加