Fórum retirar ano da data #143241

Pode ser feito de duas formas:

1a. Forma:
var Dia, Mes, Ano: word;
begin
    DecodeDate( DataInformada,Ano,Mes,Dia );
end;

2a. Forma:
var Ano:string;
begin
    Ano := FormatDateTime( ´yyyy´,DataInformada );
end;

Utilize o valor da variável Ano.
Note que no primeiro exemplo a variável é um inteiro o no segundo exemplo a valor é uma string.