Обновлено: 01 декабря, 2018

Функция DecodeDateFully в Delphi

Используемый модуль: SysUtils

Описание:

Выделяет из даты DateTime год Year типа Word, месяц Month типа Word, день Day типа Word, день недели DOW типа Word. Если год високосный, возвращается true.

Синтаксис:

DecodeDateFully (const DateTime: TDateTime; var Year, Month, Day, DOW: Word): Boolean;

Пример использования:

uses SysUtils;
...
Var
  Y, M, D, DOW: Word;
  B: Boolean;
begin
  B:= DecodeDateFully(Now, Y, M, D, DOW); // извлекаем значения из текущей даты
  If B Then
    ShowMessage('Сейчас ' + IntToStr(D) + '.' + IntToStr(M) + '.' + IntToStr(Y) + '. День недели - ' + IntToStr(DOW) + '. Год - високосный')
  Else
    ShowMessage('Сейчас ' + IntToStr(D) + '.' + IntToStr(M) + '.' + IntToStr(Y) + '. День недели - ' + IntToStr(DOW) + '. Год - невисокосный')
end;

Результат:

DecodeDateFully в Delphi