[VBA] Aggungere 1 anno ad una data

[fransyk]

Ciao ragazzi,
ho una data inserita tramite una textbox. In un'altra textbox vorrei inserire la stessa data di prima con incrementato un anno. Come si fa?

ho provato

Me.text2.value = DataAdd (y,1,"Me.text2")

ma non funziona

[oregon]

DataAdd

?

E da quando il linguaggio e' in italiano ...

http://www.weppos.com/asp/vbsdocs/function_dateadd.asp

[fransyk]

Cavolo è vero.
Cmq ho scritto DateAdd ma non funziona

Ho scritto:

Dim data As Date

data = Me.Data_attivazione_contratto.Value


If (Me.Frequenza_di_pagamento.Value = "Annuale") Then

Me.Data_scadenza_contratto.Value = DateAdd("yyyy", 1, "data")

Else

Me.Data_scadenza_contratto.Value = DateAdd("yyyy", 3, "data")

End If

Mi dice sulla funziona DateAdd, tipo non corrispondente. Nella variavile data è memorizzato GG/MM/YYYY es. 12/06/2008

[oregon]

"data"

tra virgolette diventa una semplice stringa e non ha alcun senso ...

[fransyk]

Funziona!
Grazie 1000