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