Data

Descrição:

A função Date em VBA é uma função incorporada que retorna a data atual do sistema. Ela é extremamente útil para trabalhar com operações que envolvem datas em projetos VBA.
Ao chamar a função Date, o VBA retorna a data atual no formato padrão do sistema. Por exemplo, se a data atual for 8 de outubro de 2023, a função Date retornará “08/10/2023” em sistemas configurados para o formato de data “dd/mm/aaaa”.
Essa função é frequentemente utilizada em conjunto com outras funções de manipulação de datas para calcular, comparar ou formatar datas de acordo com as necessidades do desenvolvedor.
Por exemplo, ela pode ser utilizada para determinar prazos, calcular a idade de uma pessoa, ou para qualquer operação que necessite do conhecimento da data atual do sistema.
Exemplos:

Sub Exemplo1()
    Dim dataAtual As Date
    dataAtual = Date
    MsgBox "A data atual é: " & dataAtual
End Sub
    

Este exemplo retorna a data atual e a exibe em um MsgBox.

Sub Exemplo2()
    Dim dataDaquiA7Dias As Date
    dataDaquiA7Dias = Date + 7
    MsgBox "A data daqui a 7 dias será: " & dataDaquiA7Dias
End Sub
    

Este exemplo calcula a data daqui a 7 dias a partir da data atual e a exibe em um MsgBox.

Sub Exemplo3()
    Dim primeiroDiaDoAno As Date
    primeiroDiaDoAno = DateSerial(Year(Date), 1, 1)
    MsgBox "O primeiro dia do ano atual é: " & primeiroDiaDoAno
End Sub
    

Este exemplo utiliza a função `DateSerial` para obter o primeiro dia do ano atual e a exibe em um MsgBox.

Sub Exemplo4()
    Dim dataConvertida As Date
    dataConvertida = DateValue("2023-12-31")
    MsgBox "A data convertida é: " & dataConvertida
End Sub
    

Este exemplo utiliza a função `DateValue` para converter uma string em uma data e a exibe em um MsgBox.

Sub Exemplo5()
    Dim dataPersonalizada As Date
    dataPersonalizada = CDate("15/10/2023")
    MsgBox "A data personalizada é: " & dataPersonalizada
End Sub
    

Este exemplo utiliza a função `CDate` para converter uma string em uma data personalizada e a exibe em um MsgBox.