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

Функция TryEncodeDate в Delphi

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

Описание:

Объединяет год Year, месяц Month и день Day в значение Date типа TDateTime. Возвращает false, если заданные значения месяца или дня не­допустимы.

Синтаксис:

TryEncodeDate (Year, Month, Day: Word; out Date: TDateTime): Boolean;

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

uses SysUtils;
...
Var
  Res: TDateTime;
  B: Boolean;
begin
  TryEncodeDate(2014,12,1,Res);
  if B Then
    ShowMessage(DateToStr(Res))
  Else
   ShowMessage('Неверный формат даты');
end;

Результат:

TryEncodeDate в Delphi

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

Загрузка...