CDate
函数将一个有效的日期和时间表达式类型的日期。
语法:
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