Calcular e exibir valores de data específicos
Como um valor de data é armazenado como um número de precisão dupla, você poderá receber resultados em formatação incorreta quando tentar manipular valores de data em uma expressão. Este tópico ilustra como criar expressões e funções personalizadas para exibir datas específicas e calcular intervalos de tempo.
Mês atual
DateSerial(Year(Date()), Month(Date()), 1)
Próximo mês
DateSerial(Year(Date()), Month(Date()) + 1, 1)
Último dia do mês atual
DateSerial(Year(Date()), Month(Date()) + 1, 0)
Último dia do próximo mês
DateSerial(Year(Date()), Month(Date()) + 2, 0)
Primeiro dia do mês anterior
DateSerial(Year(Date()), Month(Date())-1,1)
Último dia do mês anterior
DateSerial(Year(Date()), Month(Date()),0)
Primeiro dia do trimestre atual
DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 1, 1)
Último dia do trimestre atual
DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 4, 0)
Primeiro dia da semana atual (supondo domingo = dia 1)
Date() - WeekDay(Date()) + 1
Último dia da semana atual
Date() - WeekDay(Date()) + 7
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de