IsInLeapYear

function IsInLeapYear(const AValue: TDateTime): Boolean;

Funkcja sprawdza czy rok zapisany w postaci daty TDateTime jest rokiem przestępnym (True) czy też nie (False).

uses DateUtils;

procedure TMyForm.Button1Click(Sender: TObject);
begin
  Label1.Caption := 'Rok ' + IntToStr(YearOf(Date)) + ' ';

  if IsInLeapYear(Date) then
    Label1.Caption := Label1.Caption + 'jest przestępny'
  else
    Label1.Caption := Label1.Caption + 'nie jest przestępny';
end;

Zobacz też:

• Date
• TDateTime
• YearOf
• IsLeapYear