[Resolvido] Manipular datas

[luiscarlos5046 3]

Galera!

 

É o seguinte. Não sei como pesquisar e nem como dizer corretamente. Vou explicar o que quero:

 

Eu tenho uma data de vencimento ex.: 15/12/2011

o cliente paga sempre de 3 em 3 meses sempre no dia 15.

 

Eu consegui manipular a data aumentando 3 meses(90 dias) e atualizando a data do próximo vencimento..

até ai OK, mas tem meses que é 30 e outros 31... a data acaba mudando de dia 15...

 

Como eu faço para manipular a data aumentando 3 meses, obedecendo o ano seguinte que vai vir no caso se for Dezembro.

 

Eu consegui fazer isto:

data		= date()
hora		= FormatDateTime(now(), 4)
datadb		= Right("0"&Month(data),2) &"/"& Right("0"&Day(data),2) &"/"& Year(data) &" "& hora
prox_pag	= Right("0"&Month(data),2)+3 &"/"& Right("0"&Day(data),2) &"/"& Year(data)

 

Esse prox_pag eu pego o mês e adiciono 3, aumentando 3 meses... mas se passar de 12 meses dá erro e o ano não acompanha quando chega dezembro.

 

Alguém tem alguma função que faça isso?

 

Aumentar os meses e acompanhar o ano seguinte, mantendo sempre o dia 15 no caso ai.

 

Luis Carlos

[xanburzum 169]

use o DateAdd..

[luiscarlos5046 3]

Valeu meu amigo Xanburzum!

 

Ta ai o código pra quem vier a procurar.

 

Função: DateAdd ( )

Devolve uma data, onde um determinado intervalo foi submetido.
NovaData = DateAdd("m", 1, "31-Jan-95")
' é devolvido "28-Fev-95"

As adições possíveis são determinadas pelas seguintes hipóteses :
yyyy -> Ano
q -> Quarto
m -> Mês
y -> Dia do Ano
d -> Dia
w -> Dia da semana
ww -> Semana do ano
h -> Hora
n -> Minuto
s -> Segundo