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