Função Date

Retorna a data atual do sistema como uma string ou Variant de data.

Date[$][()]

Sub ExampleDate
    MsgBox "A data é " & Date
End Sub