Retorna a data e hora atuais do sistema como um valor de Data.
Now
Data
Sub ExampleNow
msgbox "It is now " & Now
End sub