Delphi. Процедура ReplaceDate( var DateTime: TDateTime; const NewDate: TDateTime );
Процедура ReplaceDate( var DateTime: TDateTime; const NewDate: TDateTime );
== Данная функция поддерживается только в Delphi 5 ==
== Данная функция поддерживается только в Delphi 5 ==
Модуль: 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;
Справочник по Delphi
Уроки Delphi
