La función devuelve la fecha actual del sistema.
Sintaxis
date()
Ejemplo
Agregue un botón y agregue la siguiente función.
Private Sub Constant_demo_Click()
Dim a as Variant
a = date()
msgbox "The Value of a : " & a
End Sub
Cuando ejecuta la función, produce la siguiente salida.
The Value of a : 19/07/2014