Sumar solo años a una fecha

[YaninaGenia]

Hola!!!
Me surge una duda y no consigo mucha informacion utill al respecto. Tengo una fecha que ingresa el usuario en un TDateTimePicker y necesito sumarle diez años a esa fecha que ingresa para escribirla en otro TDateTimePicker. Alguno conoce alguna funcion o algo asi para realizarlo?
Tendria que quedarme

fecha2.Date := fecha1.Date + (diez años)


Yanina

[droguerman]

se me ocurre

Código Delphi [-]
 var
   dd, mm, aa : Word;
 begin
    decodeDate(dateTimePicker1.date, aa, mm, dd);
    aa := aa+10;
    dateTimePicker1.date := encodeDate(aa, mm, dd);
 end;

[dec]

Hola,

Tamién puedes valerte de función "IncYear" (sita en la unidad "DateUtils") tal que de este modo:

Código Delphi [-]
   DateTimePicker2.DateTime := IncYear(DateTimePicker1.DateTime, 10);

[YaninaGenia]

Muchas gracias, voy a probar ambas soluciones!!

Yanina Genia