知っていれば簡単ですが、知らないと苦労するものの一つです。 If IsDate(Text1.Text) Then MsgBox "日付です。" Else MsgBox "日付ではありません。" End If
知っていれば簡単ですが、知らないと苦労するものの一つです。
If IsDate(Text1.Text) Then MsgBox "日付です。" Else MsgBox "日付ではありません。" End If
If
IsDate(Text1.Text)
Then
MsgBox "日付です。"
Else
MsgBox "日付ではありません。"
End If