//Verifica se um ano é bissexto, retornando True em caso positivo.
function AnoBis(Data: TDateTime): Boolean;varDia,Mes,Ano : Word;beginDecodeDate(Data,Ano,Mes,Dia);if Ano mod 4 <> 0 thenbeginAnoBis:= False;endelse if Ano mod 100 <> 0 thenbeginAnoBis:= True;endelse if Ano mod 400 <> 0 thenbeginAnoBis:= False;endelsebeginAnoBis:= True;end;end;
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário