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