Validar Ano

Como assim, "validar o ano"? Explique um pouco melhor o que você quer.

Boa tarde, você quer validar como?, referente ao ano base, a quantidade de dígitos, a um período de tempo?
Existem várias formas diferentes poderia postar qual seria a que voce está querendo.

Para vc recuperar o ano de uma data vc pode fazer assim:
var   dia : tdatetime;   ano : integer;begin   dia  := date;   ano := strtoint(formatdatetime('yyyy',dia));end;

Renata
Boa Tarde
Que tipo de validação vc quer fazer?
Qdo vc diz valido, é relacionado a que condição?  BISSEXTO, PERIODO, SECULO?
Segue abaixo um pequeno exemplo de uma função para saber se o Ano é Bissexto ou não.

     function anobissexto( fano: integer) : bolean;     var           Resto : double;     Begin
           Resto := (fano mod 4);            if Resto = 0 then              Result := true;           else              Result := false;
   end;   

qndo falo validar me refiro a periodo

Vc pode explcar melhor o q vc deseja fazer?Vc consegue descrever aqui para nós?