CALCULO COM DATA

V8SISTEMAS 05/04/2011 22:18:56
#370536
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 são para dias iguais. Exemplo: dia 05 de cada mes
O problema é o seguinte: se o cliente lançar dia 31. Tem meses com 30 e tem fevereiro que tem 28 ou 29 dias.
Como posso montar isso? Alguem tem alguma sugestão?
Att.

Vanderlei
HIDDEN 05/04/2011 22:41:18
#370537
Tenho uma idéia simples: uma função para pegar o último dia do mês:

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 mês, como por exemplo 02/02/2011, a função te retorna 28/02/2011.
RODRIGOFERRO 06/04/2011 00:36:47
#370545
yah isso mesmo...



    Private Function GetLastDayInMonthDate(ByVal dtDate As Date) As Date

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

    End Function
JONATHANSTECKER 15/04/2011 23:54:45
#371525 Resposta escolhida
Resolvido?
Tópico encerrado , respostas não são mais permitidas
Voltar