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

Функция EndOfAYear в Delphi

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

Описание:

Возвращает время окончания года, содержащего указанную дату AValue типа Word.

Синтаксис:

function EndOfAYear(const AYear: Word): TDateTime;

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

uses DateUtils;
...
var
  Res: TDateTime;
begin
  Res:= EndOfAYear(1999);  // возвращаем дату-время окончания 1999-года
  ShowMessage(DateTimeToStr(Res) + ' ' + TimeToStr(Res));
end;

Результат:

EndOfAYear в Delphi

(9 оценок, среднее: 5,00 из 5)

Загрузка...