ReplaceTime
Модуль: SysUtils
procedure ReplaceTime(var DateTime: TDateTime; const NewTime: TDateTime);
Процедура заменяет значение времени в параметре DateTime . Параметр NewTime должен содержать новое значение времени. Возможные даты ввода не будут изменены.
Простой пример использования:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
program FooBar; {$APPTYPE CONSOLE} uses SysUtils; var Foo : TDateTime; begin { zapisz aktualną datę i czas } Foo := Now;; Writeln(DateTimeToStr(Foo)); { odczekaj 1 sek. } Sleep(1000); { zamień zapisaną wartość czasu } ReplaceTime(Foo, Now); Writeln(DateTimeToStr(Foo)); Readln; end. |