Процедура ReplaceTime в Delphi – изменяет только часть времени TDateTime переменной.
SysUtils unit
procedure ReplaceTime (var DateTimeVar : TDateTime; const NewTimeValue : TDateTime);
Процедура ReplaceTime модифицирует часть времени переменной DateTimeVar частью времени другой (NewDateValue) TDateTime переменной, не затрагивая дату.
Процедура ReplaceTime: Изменение времени, не изменяя дату
var
myDateTime, newTime : TDateTime;
begin
// Установка даты в 29/10/2002 12:34:56
myDateTime := EncodeDateTime(2002, 10, 29, 12, 34, 56, 0);
ShowMessage('Начальная дата/время = '+DateTimeToStr(myDateTime));
// Теперь изменяем дату не затрагивая время
newTime := EncodeTime(9, 45, 52, 0);
ReplaceTime(myDateTime, newTime);
ShowMessage('Новая дата/время = '+DateTimeToStr(myDateTime));
end;
Результат
Начальная дата/время = 29/10/2002 12:34:56
Новая дата/время = 29/10/2002 09:45:52
Похожие функции, процедуры и команды
DecodeDate — извлекает значения года, месяца, дня из TDateTime переменной.
DecodeDateTime — разбивает TDateTime переменную на ее части даты/времени.
DecodeTime — разбивает значение TDateTime на отдельные значения времени.
EncodeDate — формирует значение TDateTime из значений года, месяца и дня.
EncodeDateTime — формирует значение TDateTime из значений времени и дня.
EncodeTime — формирует значение TDateTime из значений часа, минуты, секунды и миллисекунды.
RecodeDate — изменяет только дату переменной TDateTime.
RecodeTime — изменяет только время переменной TDateTime.
ReplaceDate — изменяет только часть даты TDateTime переменной.
