EncodeTime
Модуль: SysUtils
function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
Функция возвращает значение времени, сохраненное в форме TDateTime, на основе параметров. Час — это час (число от 0 до 23); Мин — минуты (число от 0 до 59); Sec — секунды (число от 0 до 59 ), а MSec — миллисекунды (число от 0 до 999).
Простой пример использования:
1 2 3 4 5 6 7 |
procedure TMyForm.MyButtonClick(Sender: TObject); var MyTime : TDateTime; begin MyTime := EncodeTime(13, 9, 20, 100); Label1.Caption := TimeToStr(MyTime); end; |
Если заданы неправильные параметры, функция сделает исключение EConvertError.