ADICIONAR 1 MÊS BASEADO NUM ULTIMO DIA CORRENTE
Boa noite pessoal, estou criando uma rotina de bloquei de cliente que preciso bloquear 5 dias apos o ultimo dia do mes.
porem tenho 2 casos distintos, meses com 31 dias e meses com 28/29 dias... segue exemplo
vou criar a data de maço, porem como fevereiro teve 28 dias, a variavel vUltimaData vai retornar 28/02/2022
"criando maço:
que ele vai acrescentar 1 mes a mais na baseada na data que veio da variavel vUltimaData
Entao precisava ver a data da ultima mensalidade(vUltimaData) e criar uma nova data (1 mes a mais) obedecendo o ultimo dia do mes daquela mensalidade que pode ser 28, 30 ou 31
vUltimaData = 30/07/2022 "essa data vem de uma consulta do ultima data de vencimento da mensalidade anterior
vDataInicio = Format(DateAdd("m", Val(1), vUltimaData), "dd/mm/yy")
"vDataInicio = 05/08/2022 "só um exemploporem tenho 2 casos distintos, meses com 31 dias e meses com 28/29 dias... segue exemplo
vou criar a data de maço, porem como fevereiro teve 28 dias, a variavel vUltimaData vai retornar 28/02/2022
"criando maço:
vUltimaData = 28/02/2022
vDataInicio = Format(DateAdd("m", Val(1), vUltimaData), "dd/mm/yy")
"vDataInicio = 28/03/2022que ele vai acrescentar 1 mes a mais na baseada na data que veio da variavel vUltimaData
Entao precisava ver a data da ultima mensalidade(vUltimaData) e criar uma nova data (1 mes a mais) obedecendo o ultimo dia do mes daquela mensalidade que pode ser 28, 30 ou 31
É VB.NET mesmo? Isso me parece VBA
Citação::
É VB.NET mesmo? Isso me parece VBA
Editei agora, nao tinha percebido que tinha colocado vb.net obg
Com a função DateSerial voce consegue isso:
Dim ultimoDia As Date
ultimoDia = DateSerial(Year(Now), Month(Now), 1) - 1
msgbox(ultimoDia)
Tópico encerrado , respostas não são mais permitidas