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

Функция TryEncodeDateTime в Delphi

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

Описание:

Вычисляет значение AValue типа TDateTime, которое представляет указанные год AYear, месяц AMonth, день ADay, час AHour, минуту AMinute, секунду ASecond и миллисекунду AMilliSecond. В случае неудачи возвращает False.

Синтаксис:

function TryEncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word; out AValue: TDateTime): Boolean;

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

uses DateUtils;
...
var
  Res: TDateTime;
  B: Boolean;
begin
  B:= TryEncodeDateTime(2001, 12, 30, 12, 59, 30, 2, Res); // пытаемся преобразовать дату в тип TDateTime
  If B Then
    ShowMessage(DateTimeToStr(Res))
  Else
   ShowMessage('Ошибка в дате');
end;

Результат:

TryEncodeDateTime в Delphi