Delphi-Help

Описание

procedure ReplaceDate ( var DateTimeVar : TDateTime; const NewDateValue : TDateTime ) ;

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

Пример кода

var
myDateTime, newDate : TDateTime;

begin
// Установка даты в 29/10/2002 12:34:56
myDateTime := EncodeDateTime(2002, 10, 29, 12, 34, 56, 0);
ShowMessage('Начальная дата/время = '+DateTimeToStr(myDateTime));

// Теперь изменяем дату не затрагивая время
newDate := EncodeDate(1957, 02, 18);
ReplaceDate(myDateTime, newDate);
ShowMessage('Новая дата/время = '+DateTimeToStr(myDateTime));
end;

Начальная дата/время = 29/10/2002 12:34:56
Новая дата/время = 18/02/1957 12:34:56

Примечание