Private Sub Command1_Click() If (IsDate("2017-09-20")) Then MsgBox "是一个日期格式的日期" Else MsgBox "不是一个日期格式的日期" End IfEnd Sub
