Функции и процедуры Delphi. Справочник.

IV. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ПЕРЕМЕННЫМИ РАЗЛИЧНЫХ ТИПОВ ДАННЫХ

4. Функции и процедуры для работы с датой и временем

Процедура ReplaceTime (
var DateTime: TDateTime;
const NewTime: TDateTime );

== Данная функция поддерживается только в 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;

[Вернуться к содержанию]