主题：日期审核代码

参考代码

Dim str As String = "2013-04/30"
Dim d As Date

If Date.TryParse(str, d) = False OrElse Format(d, "yyyy-MM-dd") <> str Then
    msgbox("不是正确的日期")
End If