Función DateAdd

Devuelve una fecha en la que se ha agregado un intervalo de tiempo especificado.

Sintaxis

DateAdd(interval, number, date)

Argumentos:

  • Interval: necesario. Expresión de cadena que es el intervalo que desea agregar. Consulte la sección Configuración para ver los valores.
  • Number: necesario. Expresión numérica que es el número de intervalos que desea agregar. La expresión numérica puede ser positiva, para fechas futuras, o negativa, para fechas pasadas.
  • Date: necesario. Variante o literal que representa la fecha a la que se agrega el intervalo.

Configuración: el argumento interval puede tener los siguientes valores:

Tabla 11-9 Valores del argumento interval

Configuración Descripción
yyyy Año
q Trimestre
m Month
d Day
w Día hábil
h Hour
n Minute
s Second

Formatos de fecha soportados:

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

Formato de hora soportado:

hh:mm:ss

Observaciones

Puede utilizar la función DateAdd para sumar o restar un intervalo de tiempo especificado a una fecha. Por ejemplo, puede utilizar DateAdd para calcular una fecha de 10 días a partir de hoy o una hora de 45 minutos a partir de ahora. Para agregar días a la fecha, puede usar un día ("d") o día hábil ("w").

El formato de fecha de salida se basa en el formato de fecha corta del sistema.

En el siguiente ejemplo se muestra el uso de la función DateAdd:

Ejemplo 1:

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

Ejemplo 2:

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

Ejemplo 3:

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

Ejemplo 4:

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

Ejemplo 5:

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

Ejemplo 6:

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

Ejemplo 7:

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

Ejemplo 8:

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