The Date Function returns the current system date.
Syntax
date()
Example
Add a button and add the following function.
Private Sub Constant_demo_Click()
Dim a as Variant
a = date()
msgbox "The Value of a : " & a
End Sub
When you execute the function, it produces the following output.
The Value of a : 19/07/2014