Uses Unit SysUtils
A função IsLeapYear retorna true se o ano passado ao parâmetro for bissexto, caso contrário retorna false;
Sintaxe da sua utilização:
IsLeapYear(Ano);
Ex:
procedure TForm1.Button14Click(Sender: TObject);
begin
if isLeapYear(2006) then Showmessage('Bissexto') else Showmessage('Não');
end;
begin
if isLeapYear(2006) then Showmessage('Bissexto') else Showmessage('Não');
end;
Nenhum comentário:
Postar um comentário