RecodeTime
Модуль: DateUtils
function RecodeTime(const AValue: TDateTime; const AHour, AMinute, ASecond, AMilliSecond: Word): TDateTime;
Эта функция преобразует значение времени, переданное в параметре AValue, в значения параметров AHour (час), AMinute (минута), ASecond (секунда), AMilliSecond (миллисекунда).
пример:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
program Foo; {$APPTYPE CONSOLE} uses DateUtils, SysUtils; var ANow : TDateTime; begin ANow := Now; Writeln('Знач: ', DateTimeToStr(RecodeTime(ANow, 8, 12, 12, 999))); Readln; end. |