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

Функция EndOfADay в Delphi

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

Описание:

Возвращает значение TDateTime, которое представляет 12:00:00:00 AM дня из указанного года AYear типа Word указанного дня ADayOfYear типа Word (const ADayOfYear: Word=365).

Синтаксис:

function EndOfADay(const AYear, ADayOfYear: Word): TDateTime;

Описание:

Возвращает значение TDateTime, которое представляет 12:00:00:00 AM дня из указанного года AYear типа Word указанного месяца AMonth типа Word указанного дня ADay типа Word.

Синтаксис:

function EndOfADay(const AYear, AMonth, ADay: Word): TDateTime;

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

uses DateUtils;
...
Var
  Res1, Res2: TDateTime;
begin
  Res1:= EndOfADay(2002, 365); // возвращаем время окончания 365-го дня 2002 года
  Res2:= EndOfADay(2002, 12, 31);  // возвращаем время окончания 31-го декабря 2002 года
  ShowMessage(DateTimeToStr(Res1) + ' ' + TimeToStr(Res1) + #13#10 + DateTimeToStr(Res2) + ' ' + TimeToStr(Res2));
end;

Результат:

EndOfADay в Delphi