EncodeTime ()

Функція EncodeTime (Hour, Min, Sec, MSec:Word): TDateTime;
Опис

Функція перетворює значення годин, хвилин,секунд і мілісекунд, переданих в параметрах 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;