The Function converts a valid date and time expression to type date.
Add a button and add the following function.
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
When you execute the function, it produces the following output.
The Value of a : 1/01/2020 The Value of b : 31/12/2050