Delphi. Процедура ReplaceTime ( var DateTime: TDateTime; const NewTime: TDateTime );
Процедура ReplaceTime ( var DateTime: TDateTime; const NewTime: TDateTime );
== Данная функция поддерживается только в Delphi 5 ==
== Данная функция поддерживается только в Delphi 5 ==
Модуль: SysUtils
Описание
Процедура заменяет значение времени в переменной DateTime на значение, указанное в параметре NewTime. Значение даты остается неизменным.
Пример
var
DateTime, NewDate: TDateTime;
S: string;
begin
S:= '28.02.1999 23:37';
DateTime:= StrToDateTime(S);
NewTime:= StrToTime('15:00');
ReplaceTime(DateTime, NewTime);
S:= DateTimeToStr(DateTime);
MessageDlg( S, mtInformation, [mbOk], 0);
end;
Справочник по Delphi
Уроки Delphi
