DEFINIçãO DE DATA COM INICIO 30, MêS DE FEVEREI

 Tópico anterior Próximo tópico Novo tópico

DEFINIçãO DE DATA COM INICIO 30, MêS DE FEVEREI

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#496624 - 02/04/2021 12:58:08

AMELINHACODE
SAO PAULO
Cadast. em:Junho/2019


Bom dia Pessoal,

Possuo seguinte código (funcionando):
If txtDia.Text = '' Then Exit Sub

Dim vDataInicio As Date
Dim vDia As Integer
Dim vMes As Integer
Dim vAno As Integer

vDia = txtDia.Text
vMes = Format(Date, 'm')
vAno = Year(Date)

'lNovoCod = Autonumeracao_Pagamentos
If chkProximo.Value = 1 Then
    vDataInicio = vDia & ' / ' & vMes & ' / ' & vAno
    vDataInicio = Format(DateAdd('m', Val(1), vDataInicio), 'dd/mm/yy')
Else
    vDataInicio = vDia & ' / ' & vMes & ' / ' & vAno
End If


Se não marco o checkbox ele pega a o dia que forneci no txt e o mês atual.... ok
exemplo: 30/04/2021
Se marco o checkbox ele pega a o dia que forneci no txt e o próximo mês.
exemplo: 30/05/2021

Preciso mês a mês gerar parcelas com a data de pagamento para dia 30 de cada.... será feito mês a mês... ou seja, cliente abrir meu sistema dia '01/04/2021' ele vai regar uma parcela com a data de 30/04...

Minha duvida é no caso de mês de fevereiro, como ele vai gerar uma data para 30/02 ?




Resposta escolhida #496625 - 02/04/2021 17:05:26

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Não vai. A função DateAdd que você está usando faz esse calculo baseada no calendário interno e não terá problemas para saber qual a data correta resultante da adição.

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#496626 - 02/04/2021 18:31:11

AMELINHACODE
SAO PAULO
Cadast. em:Junho/2019


Citação:
:
Não vai. A função DateAdd que você está usando faz esse calculo baseada no calendário interno e não terá problemas para saber qual a data correta resultante da adição.


Entendi, obg KERPLUNK



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por AMELINHACODE em 02/04/2021 18:31:20