CALCULO COM DATA

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

CALCULO COM DATA

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#370536 - 05/04/2011 22:18:56

V8SISTEMAS
INDAIATUBA
Cadast. em:Julho/2010


Pessoal, preciso de uma ajuda
Estou montanto uma tela de venda. No caso do meu cliente ele chega a fazer at em 36x.
E os vencimentos as vezes so para dias iguais. Exemplo: dia 05 de cada mes
O problema o seguinte: se o cliente lanar dia 31. Tem meses com 30 e tem fevereiro que tem 28 ou 29 dias.
Como posso montar isso? Alguem tem alguma sugesto?
Att.

Vanderlei



#370537 - 05/04/2011 22:41:18

HIDDEN
GOIANIA
Cadast. em:Julho/2009


Tenho uma idia simples: uma funo para pegar o ltimo dia do ms:

Public Function gbFc_Data_UltimoDia(fData As Date) As Date
       Dim DataPMes As Date
       DataPMes = DateAdd([]m[], 1, fData)
       DataPMes = CDate([]01/[] & Month(DataPMes) & []/[] & Year(DataPMes))
       DataPMes = DateAdd([]d[], -1, DataPMes)
       gbFc_Data_UltimoDia = DataPMes
End Function


Por exemplo, se voc informar no parametro fData, qualquer data dentro do ms, como por exemplo 02/02/2011, a funo te retorna 28/02/2011.



#370545 - 06/04/2011 00:36:47

RODRIGOFERRO
VIANA
Cadast. em:Junho/2009


yah isso mesmo...



    Private Function GetLastDayInMonthDate(ByVal dtDate As Date) As Date

        Return DateSerial(dtDate.Year, dtDate.Month + 1, 0)

    End Function



Estou voltando... Ol a todos... J posso dizer, ([]Ja lhes falei mais de mil vezes... HIAUhIAHIAUhAIUHAIUA[])
- Chuck Norris usa o Notepad como banco de dados relacional.
- Chuck Norris sabe falar em cdigos binrios.



Resposta escolhida #371525 - 15/04/2011 23:54:45

JONATHANSTECKER
METZ
Cadast. em:Junho/2009


Resolvido?



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


Tópico encerrado, respostas não sao permitidas
Encerrado por V8SISTEMAS em 27/07/2011 11:34:15