函数将有效的日期和时间表达式转换为日期类型。
cdate(date)
添加按钮并添加以下功能。
Private Sub Constant_demo_Click()
Dim a as Variant
Dim b as Variant
a = cdate("Jan 01 2020")
msgbox("The Value of a : " & a)
b = cdate("31 Dec 2050")
msgbox("The Value of b : " & b)
End Sub
执行该函数时,它会生成以下输出。
The Value of a : 1/01/2020
The Value of b : 31/12/2050