Delphi-Help

Описание

procedure ReplaceTime ( var DateTimeVar : TDateTime; const NewTimeValue : TDateTime ) ;

Функция ReplaceTime модифицирует часть времени переменной DateTimeVar частью времени другой (NewDateValue) TDateTime переменной, не затрагивая дату.

Пример кода

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

Примечание