Функция StartOfADay в Delphi

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

Описание:

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

Синтаксис:

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

Описание:

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

Синтаксис:

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

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

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

Результат:

Функция StartOfADay
StartOfADay в Delphi

1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (9 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий