IsInLeapYear

Adam Boduch
IsInLeapYear
Moduł: DateUtils
```delphi function IsInLeapYear(const AValue: TDateTime): Boolean; ``` [[Delphi/Funkcje|Funkcja]] sprawdza czy rok zapisany w postaci daty [[Delphi/TDateTime]] jest rokiem przestępnym ([[Delphi/True]]) czy też nie ([[Delphi/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ż:

0 komentarzy