日付を形式で比較するには？

解決

なお 2004-03-02 11:24:42 No: 112142 IP: [192.*.*.*]

いつも勉強させていただいています。
早速教えていただきたいのですが、
txt開始月度.Textが"yyyy/mm/dd"であれば、処理をする
ということをしたいのですが、どのように記述すれば
よろしいでしょうか？
If Me.txt開始月度.Text <> "yyyy/mm/dd" Then
MsgBox "開始日が日付形式（YYYY/MM/DD）でありません。",vbInformation
と書いたのですが、"yyyy/mm/dd"の時でもメッセージが出てきて
しまいます。
よろしくお願いします。

ＶＢ６使用

編集削除

nanashi 2004-03-02 11:37:02 No: 112143 IP: [192.*.*.*]

それだと実際に"yyyy/mm/dd"という文字列が入力されてる時以外は全てメッセージが出ます。
まずIsDate関数で有効な日付かどうかチェックした後、日付の形式をチェックした方が良いと思います。

↓こんな感じ。

    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

編集削除

なお 2004-03-02 11:51:03 No: 112144 IP: [192.*.*.*]

nanashiさん、できました。
ありがとうございました。

超初心者なのでこれからもお世話になると思いますが、
よろしくおねがいします。

編集削除