Verificando se o ano é bisexto
function AnoBis(Data: TDateTime): Boolean;
{Verifica se um ano é bisexto, retornando True em caso positivo}
var
Dia,Mes,Ano : Word;
begin
DecodeDate(Data,Ano,Mes,Dia);
if Ano mod 4 <> 0 then
AnoBis := False
else
if Ano mod 100 <> 0 then
AnoBis := True
else
if Ano mod 400 <> 0 then
AnoBis := False
else
AnoBis := True;
end;
