codice:
Dim tdate As Date=Date.Now
tdate.AddYears(-10) 'Aggiunge -10 anni, ossia ne toglie 10