日付を形式で比較するには？ (ID:112143)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 それだと実際に"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