一个Function,它返回一个布尔值,无论给定的输入是否为日期。
IsDate(expression)
添加按钮并添加以下功能。
Private Sub Constant_demo_Click()
msgbox("Line 1 : " & IsDate("Nov 03, 1950"))
msgbox("Line 2 : " & IsDate(#01/31/20#))
msgbox("Line 3 : " & IsDate(#05/31/20 10:30 PM#))
End Sub
执行上述功能时,会产生以下输出。
Line 1 : True
Line 2 : True
Line 3 : True