[Resolvido] Achar último dia do Mês - VBA

2024 - VBA & Macros

Post Recente por NERI S 4 anos atrás

5 Posts

2 Usuários

2 Reactions

1,090 Visualizações

RSS

NERI S

(@neri-s)

Posts: 0

Estimable Member

Topic starter

Estou a procura de duas coisas:

1º Preciso o código para achar o último dia do mês em VBA >> Neste caso digito a data inicial do mês em txtdataini.value e preciso o retorno em txtdatafim.value

2º Código para fazer a diferença entre duas datas >> neste cálculo farei o seguinte: txtdatafim.value - txtdata.value

Postado : 07/10/2020 4:56 pm

Anderson

(@anderson)

Posts: 203

Reputable Member

Anexos

ultimo-dia-do-mes.xlsm

ultimo-dia-do-mes2.xlsm

diferenca-entre-duas-datas.xlsm

Este post foi modificado 4 anos atrás 4 vezes por Anderson

Em 90% dos casos em que não se anexa o arquivo, ocorrem mal-entendidos, gerando perda de tempo de ambos os lados.

Postado : 07/10/2020 5:30 pm

NERI S reacted

NERI S

(@neri-s)

Posts: 0

Estimable Member

Topic starter

Anderson

Obrigado pelo retorno. Vou abusar e pedir mais uma coisa: no código abaixo que dá a diferença entre datas, ele me informa a quantidade de dias. Eu preciso que me retorne a quantidade de meses. Pode me ajudar? Tentei formatar a Textbox3 mas não fiz corretamente.

Private Sub TextBox2_Change()

If IsDate(Me.TextBox1.Text) And IsDate(Me.TextBox2.Text) Then

Me.TextBox3.Text = CDate(Me.TextBox2.Text) - CDate(Me.TextBox1.Text)

End If

End Sub

Postado : 08/10/2020 8:51 am