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

Функция TryRecodeDateTime в Delphi

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

Описание:

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

Синтаксис:

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

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

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

Результат:

TryRecodeDateTime в Delphi