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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: a lo largo de 2024, eliminaremos gradualmente los problemas de GitHub como mecanismo de comentarios para el contenido y lo reemplazaremos por un nuevo sistema de comentarios. Para obtener más información, consulte:Enviar y ver comentarios de