como obtener el año actual

[martita]

hola foro, alguien sabe alguna funcion para sacar en valor
integer el año actual ?

es decir quiero que me de resultado un valor entero
ejemplo = 2011
que es el año actual de la fecha del sistema

saludos.

[[oscarac]]

existe el decodedate

Código Delphi [-]
Function Fecha(fecha: TDateTime): TDateTime;
var   Dia,mes,ano: Word;   
begin   
   DecodeDate(now,ano,mes,dia);
end;

[[Chris]]

Lo puedes hacer con la función YearOf. Creo que esta función está en la unidad DateUtils. Si así es, deberás agregar esta unidad a la sección uses de la unidad.
EJEMPLO:

Código Delphi [-]
AnoActual := YearOf(Now);

Es así de simple.

Saludos,
Chris