PHSYS - Wiki

A função IsLeapYear verifica se um determinado ano é bissexto.

Sintaxe

Function IsLeapYear(Year: Integer): Boolean;

Parâmetros

Nome	Tipo	Descrição
Year	Integer	Ano que será verificado.

Exemplos

var
  ano: Integer;
  bissexto: Boolean;
begin
  ano := 2024;
  bissexto := IsLeapYear(ano);
  if bissexto then
    Informacao(IntToStr(ano) + ' é um ano bissexto.')
  else
    Informacao(IntToStr(ano) + ' não é um ano bissexto.');
end.