Calcular y mostrar valores de fecha específicos

Dado que el valor de fecha se almacena como un número de precisión doble, es posible que, cuando intente manipular los valores de una expresión, los resultados de formato que reciba sean incorrectos. En este tema se ilustra cómo crear expresiones y funciones personalizadas para mostrar fechas específicas y calcular intervalos de tiempo.

Mes actual

DateSerial(Year(Date()), Month(Date()), 1)

Mes próximo

DateSerial(Year(Date()), Month(Date()) + 1, 1)

Último día del mes actual

DateSerial(Year(Date()), Month(Date()) + 1, 0)

Último día del mes siguiente

DateSerial(Year(Date()), Month(Date()) + 2, 0)

Primer día del mes anterior

DateSerial(Year(Date()), Month(Date())-1,1)

Último día del mes anterior

DateSerial(Year(Date()), Month(Date()),0)

Primer día del trimestre actual

DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 1, 1)

Último día del trimestre actual

DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 4, 0)

Primer día de la semana actual (suponiendo domingo = día 1)

Date() - WeekDay(Date()) + 1

Último día de la semana actual

Date() - WeekDay(Date()) + 7

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.