vb6 - aiuto x una data

[angelicab]

Salve!

Ecco il problema...

In una scheda d'inserimento dati, ho i seguenti campi:
data_vendita (es.: 12/12/03)
mesi_garanzia (es.: 4)
scadenza_garanzia

In data_vendita verrà inserita la data di vendita (es.: 12/12/03)

In mesi_garanzia verrà inserito il numero di mesi in garanzia (es.: 4)

In scadenza_garanzia vorrei che fosse inserita in automatico la data di scadenza facendo data_vendita + mesi_garanzia

Help me ..

[Sypher]

Forse ti può risultare utile la funzione DateAdd!
Per esempio:
DataScadenza = DateAdd("m", 4, Date)
aggiunge 4 mesi alla data corrente!

[tas]

Usa la funzione DateAdd:

Dim d1 As Date
Dim d2 As Date
Dim ms As Integer

d1 = #12/12/03#
ms = 4   'mesi

d2 = DateAdd("m", ms, d1)

Debug.Print d2

[angelicab]

Grazie mille!!
Era proprio quello che volevo!! Altrimenti sarei impazzita a furia di controllare date!!!