Instrução Date
Devolve a data atual do sistema como cadeia ou repõe a data. O formato da data depende das definições do seu sistema local.
Sintaxe:
Date ; Date = Texto As String
Parâmetros:
Texto: apenas necessário para repor a data do sistema. Neste caso, a expressão em caracteres tem de corresponder ao formato da data definido nas suas definições locais.
Exemplo:
Sub ExampleDate
MsgBox "A data é " & Date
End Sub