[VB6] Incremento data

[quartutek]

Ciao

Come faccio ad incrementare una data?
esempio voglio incrementare il mese
data di oggi 09-03-2005

[Dardino]

Dim data As Date
data = Now
data = DateAdd("m", 1, data)

[Dardino]

dimenticavo:
per il primo parametro i valori validi sono:

yyyy = anni
q    = quadrimestri
m    = Mesi
y    = Giorno dell'anno
d    = Giorni
w    = Giorno della settimana 
ww   = Settimane
h    = Ore
n    = Minuti
s    = Secondi

[quartutek]

Ok. Ti ringrazio della dritta a buon rendere