Como Gerar Vencimentos De Datas?

[Halfar]

Tenho uma data inicial, assim:

05-01-2006

Preciso gerar os proximos vencimentos das datas, assim:

05-02-2006

05-03-2006

05-04-2006, e assim sucessivamente...

[Halfar]

Bem, acho que descobri, então eu mesmo responderei:

For I = 1 To 12

X = DateSerial(Year(Date), Month(Date) + I, Day(Date))

Next

[Halfar]

Bem pessoal,

Isto ai funciona parcialmente...

Mas tem mes que é 30, ou 31....

será que não tem uma funcao para facilitar as coisas...

do mes de fevereio fiz um script, funciona, mas achei meio complicado...

deve ter algo mais simples

senao vou ter que escrever outro script para considerar os dias 30 ou 31...

e ainda nem quero pensar no ano bisexto...

[kuroi]

ve se é isso:

Dim x as Date, i as Integer

x = date
for i = 1 to 12
 x = dateadd ('m', 1, x)
next

e na hora de mostrar c faz:

Format (x, "DD-MM-YYYY")

[ramon]

Boa kuroi

[Halfar]

Ola.

O que siginifica o numero 1 na trecho de codigo da funcao abaixo:

x = dateadd ('m', 1, x)

[fercosmig]

x = dateadd ('m', 1, x)

'm' = informa que você esta querendo adicionar valor ao mês

1 = define qtos meses serão adicionados

x = variavel que contem a data a inicial onde será adicionado o valor de mêses definidos acima

abraços

[kuroi]

so q o certo seria:

x = dateadd ("m", 1, x)

com aspas e não apostrofos.