Функции и процедуры Delphi. Справочник.

IV. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ПЕРЕМЕННЫМИ РАЗЛИЧНЫХ ТИПОВ ДАННЫХ

4. Функции и процедуры для работы с датой и временем

Процедура DecodeTime(
T: TDateTime;
var Hour, Min, Sec, MSec: Word );

Модуль: SysUtils

Описание
Процедура возвращает значение часов (Hour), минут (Min), секунд (Sec) и миллисекунд (MSec) для значения времени указанного в формате TDateTime. Исходное значение передается в параметре T. Если значение T<=0 или не содержит значения времени, то процедура возвращает во всех переменных 0.

Пример
var
   D: TDateTime;
   Hour, Min, Sec, MSec: Word;
begin
   D:= Now;
   DecodeTime( D, Hour, Min, Sec, MSec);
   MessageDlg( 'Текущее время: '+ IntToStr(Hour)+ 'ч.'+ IntToStr(Min)+ 'мин.'+ IntToStr(Sec)+ 'сек. ', mtInformation, [mbOk], 0);
end;

[Вернуться к содержанию]