La función DateDiff en VBA se utiliza para calcular la diferencia entre dos fechas. Esta función puede devolver el número de intervalos de tiempo específicos entre dos fechas.

Sintaxis básica

DateDiff(interval, date1, date2, [firstdayofweek], [firstweekofyear])

• interval (obligatorio): Es una cadena que especifica el tipo de intervalo de tiempo que se va a usar para calcular la diferencia entre date1 y date2.
• Algunos de los intervalos más comunes son
  • «yyyy»: Año
  • «q»: Trimestre
  • «m»: Mes
  • «y»: Día del año
  • «d»: Día
  • «w»: Semana
  • «ww»: Semana del año
  • «h»: Hora
  • «n»: Minuto
  • «s»: Segundo
• date1, date2 (obligatorios): Las fechas entre las cuales se calculará la diferencia.
• firstdayofweek (opcional): Un valor constante que especifica el primer día de la semana. Si no se especifica, se asume vbSunday.
• firstweekofyear (opcional): Un valor constante que especifica la primera semana del año. Si no se especifica, se asume vbFirstJan1.

Ejemplo de uso de DateDiff para calcular la diferencia en días entre dos fechas:

Sub ExampleDateDiff()
    Dim startDate As Date
    Dim endDate As Date
    Dim daysDifference As Long

    startDate = DateSerial(2023, 1, 1) ' 1 de enero de 2023
    endDate = DateSerial(2023, 12, 31) ' 31 de diciembre de 2023

    ' Calcular la diferencia en días
    daysDifference = DateDiff("d", startDate, endDate)

    ' Mostrar el resultado
    MsgBox "La diferencia en días es: " & daysDifference
End Sub

Al ejecutar este código, se mostraría un mensaje que indica que la diferencia entre las dos fechas en días es 364 (asumiendo que no consideramos el último día).

Recuerda que DateDiff es sensible a la configuración regional, fechas bisiestas y el cambio de horario de verano cuando calculas diferencias basadas en horas, minutos y segundos.

Además, DateDiff no se limita a trabajar solo con fechas literales, también puedes pasar variables de tipo Date, resultados de funciones como Now(), Date(), y otras expresiones que devuelvan fechas.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto