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.