Функция EncodeTime(
Hour, Min, Sec, MSec: Word ): TDateTime;
Модуль: SysUtils
Описание
Функция преобразовывает значения часов, минут, секунд и миллисекунд, переданных в параметрах Hour, Min, Sec, MSec соответственно, в значение типа TDateTime. Исходные значения должны иметь допустимые величины: Hour - 0.. 23; Min - 0.. 59; Sec - 0.. 59; MSec - 0.. 999. Если значения выходят за пределы заданных диапазонов, то возникает исключение EConvertError. Функция возвращает значение в диапазоне [0.. 1). Результирующее значение определяет часть дня, прошедшую к указанному времени (например, 0 - полночь, 0.5 - полдень, 0.75 - 18:00 и т.д.).
Пример var
T: TDateTime; begin
T:= EncodeTime( 7, 30, 0, 0);
MessageDlg( TimeToStr(T), mtInformation, [mbOk], 0); end;
