Модуль: SysUtils

Описание
Процедура заменяет значение даты в переменной DateTime на значение, указанное в параметре NewDate. Значение времени остается неизменным.

Пример
var
   DateTime, NewDate: TDateTime;
   S: string;
begin
   S:= '28.02.1999 15:30';
   DateTime:= StrToDateTime(S);
   NewDate:= StrToDate('29.02.2000');
   ReplaceDate(DateTime, NewDate);
   S:= DateTimeToStr(DateTime);
   MessageDlg( S, mtInformation, [mbOk], 0);
end;