ReplaceDate ()

Процедура ReplaceDate (var DateTime:TDateTime; const NewDate: TDateTime);
Опис

Процедура замінює значення дати у змінній 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;