Função VBA: Date

Descrição

A função VBA Date retorna a data atual do sistema.

Sintaxe Date

Datae

Exemplo VBA Date

Vamos armazenar a data retornada pela função Date na célula A1:

Sub DateExample1()

    Range("A1") = Date
    
End Sub

Vamos exibir a data retornada pela função Date em formato de texto:

Sub DateExample2()

    MsgBox Format(Date, "d mmmm yyyy") 'Retorna, por exemplo: 2 de novembro de 2020
    
End Sub

Realizaremos a ação somente se a data retornada pela função Date corresponder ao primeiro dia do mês:

Sub DateExample3()

    If Day(Date) = 1 Then
        MsgBox "É o primeiro dia do mês!"
    End If
    
End Sub