Página 1 de 1

Como encontrar a Data correspondente do mês seguinte

Enviado: 29 Dez 2019 às 13:36
por carlosroston
Boa Tarde a todos os amigos.

Pessoal alguém poderia me ajudar a solucionar este problema? Quero calcular a data do mês seguinte levando em consideração o dia da semana.

Ex: 02/12/2019 (1ª segunda feira do mês) ---> qual seria a data da 1ª segunda feira do mês seguinte (jan 2020, ou fev 2020, etc)?

Como expressar isso numa fórmula ou vba?

Anexo uma planilha que ilustra bem esse problema.

Re: Como encontrar a Data correspondente do mês seguinte

Enviado: 29 Dez 2019 às 17:24
por osvaldomp
Para a data que está em B10 (02/12/2019) a fórmula abaixo retorna 06/01/2020.
Código: Selecionar todos
=DATA(ANO(B10);MÊS(B10)+1;1+7*(INT((DIA(B10)-1)/7)+1))-DIA.DA.SEMANA(DATA(ANO(B10);MÊS(B10)+1;8-DIA.DA.SEMANA(B10)))
Para a data que está em B13 (12/12/2019) a fórmula abaixo retorna 09/01/2020 (é diferente do resultado que você colocou na planilha pois o seu resultado está incorreto)
Código: Selecionar todos
=DATA(ANO(B13);MÊS(B13)+1;1+7*(INT((DIA(B13)-1)/7)+1))-DIA.DA.SEMANA(DATA(ANO(B13);MÊS(B13)+1;8-DIA.DA.SEMANA(B13)))

Re: Como encontrar a Data correspondente do mês seguinte

Enviado: 29 Dez 2019 às 20:27
por Estevaoba
Outra opção de fórmula:
Para F10:
Código: Selecionar todos
=FIMMÊS(B10;0)+ÍNDICE({1;7;6;5;4;3;2};CORRESP(DIA.DA.SEMANA(FIMMÊS(B10;0));{1;2;3;4;5;6;7};0))
Para F13:
Código: Selecionar todos
=FIMMÊS(B13;0)+ÍNDICE({4;3;2;1;7;6;5};CORRESP(DIA.DA.SEMANA(FIMMÊS(B13;0));{1;2;3;4;5;6;7};0))+7
Good luck!

Re: Como encontrar a Data correspondente do mês seguinte

Enviado: 30 Dez 2019 às 09:50
por carlosroston
Perfeito pessoal. Resolveu perfeitamente.

Muito obrigado.