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

Функция DecodeDateTime в Delphi

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

Описание:

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

Синтаксис:

procedure DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word);

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

uses DateUtils;
...
Var
  Y,M,D,H,Min,Sec,MilSec: Word;
begin
  DecodeDateTime(Now, Y, M, D, H, Min, Sec, MilSec); // извлекаем значения из текущей даты и времени
  ShowMessage('Сейчас '+IntToStr(D)+'.'+IntToStr(M)+'.'+IntToStr(Y)+' '+IntToStr(H)+':'+IntToStr(Min)+':'+IntToStr(Sec)+':'+IntToStr(MilSec));
end;

Результат:

DecodeDateTime в Delphi