RecodeTime
Moduł: DateUtils
function RecodeTime(const AValue: TDateTime; const AHour, AMinute, ASecond, AMilliSecond: Word): TDateTime;
Funkcja zamienia wartość czasu przekazaną w parametrze AValue na wartości parametrów AHour (godzina), AMinute (minuta), ASecond (sekunda), AMilliSecond (milisekunda).
Przykład:
program Foo;
{$APPTYPE CONSOLE}
uses
DateUtils, SysUtils;
var
ANow : TDateTime;
begin
ANow := Now;
Writeln('Zmiana wartości czasu: ', DateTimeToStr(RecodeTime(ANow, 8, 12, 12, 999)));
Readln;
end.
Zobacz też: