Função DateAdd

Devolve a data à qual um intervalo de tempo especificado foi adicionado.

Sintaxe

DateAdd(interval, number, date)

Argumentos:

  • Interval: Obrigatório. Expressão de string que é o intervalo a ser adicionado. Consulte a seção Configurações para ver os valores.
  • Number: Obrigatório. Expressão numérica que é o número de intervalos a ser adicionado. A expressão numérica pode ser positiva, no caso de datas no futuro, ou negativa, no caso de datas no passado.
  • Date: Obrigatório. Variante ou literal que representa a data à qual o intervalo é adicionado.

Configurações: O argumento interval pode ter os seguintes valores:

Tabela 11-9 Valores do Argumento Interval

Configuração Descrição
yyyy Ano
q Trimestre
m Mês
d Day
w Dia da semana
h Hour
n Minute
s Second

Formatos de Data Suportados:

  • MM/DD/YYYY
  • DD/MM/YYYY
  • YYYY-MM-DD
  • YYYY/MM/DD

Formato de Hora Suportado:

hh:mm:ss

Comentários

Você pode usar a função DateAdd para adicionar ou subtrair um intervalo de tempo especificado de uma data. Por exemplo, você pode usar DateAdd para adicionar 10 dias à data atual ou adicionar 45 minutos à hora atual. Para adicionar dias à data, você pode usar Dia ("d") ou Dia da semana ("w").

O formato de data de saída é baseado no formato abreviado de data do sistema.

O exemplo a seguir ilustra o uso da função DateAdd:

Exemplo 1:

Dim MyDate, NewDate 
MyDate = "21/01/2025" 
NewDate = DateAdd("yyyy", 5, MyDate) 
'Output: 21-Jan-30

Exemplo 2:

Dim MyDate, NewDate
MyDate = "21/01/2025"
NewDate = DateAdd("q", 1, MyDate)
'Output: 21-Apr-25

Exemplo 3:

Dim MyDate, NewDate
MyDate = "21/01/2025"
NewDate = DateAdd("m", 2, MyDate)
'Output: 21-Mar-25

Exemplo 4:

Dim MyDate, NewDate
MyDate = "21/01/2025"
NewDate = DateAdd("d", 10, MyDate)
'Output: 31-Jan-25

Exemplo 5:

Dim MyDate, NewDate
MyDate = "21/01/2025"
NewDate = DateAdd("w", 4, MyDate)
'Output: 25-Jan-25

Exemplo 6:

Dim MyDate, NewDate
MyDate = "21/01/2025 14:40:00"
NewDate = DateAdd("h", 5, MyDate)
'Output: 21-Jan-25 7:40:00 PM

Exemplo 7:

Dim MyDate, NewDate
MyDate = "21/01/2025 14:40:00"
NewDate = DateAdd("n", 5, MyDate)
'Output: 21-Jan-25 2:45:00 PM

Exemplo 8:

Dim MyDate, NewDate
MyDate = "21/01/2025 14:40:00"
NewDate = DateAdd("s", 5, MyDate)
'Output: 21-Jan-25 2:40:05 PM