ISLEAPYEAR
Модуль: SysUtils
function IsLeapYear(Year: Word): Boolean;
Функция проверяет, является ли год, указанный в параметре (Year), високосным (возвращает True ) или нет ( False ).
Чтобы получить год от даты, сохраненной в формате TDateTime , используйте функцию YearOf :
|
1 2 3 4 5 6 7 8 9 10 11 |
uses DateUtils; procedure TMyForm.Button1Click(Sender: TObject); begin Label1.Caption := 'Rok ' + IntToStr(YearOf(Date)) + ' '; if IsLeapYear(YearOf(Date)) then Label1.Caption := Label1.Caption + 'jest przestępny' else Label1.Caption := Label1.Caption + 'nie jest przestępny'; end; |