IV. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ПЕРЕМЕННЫМИ РАЗЛИЧНЫХ ТИПОВ ДАННЫХ
4. Функции и процедуры для работы с датой и временем
Процедура ReplaceDate(
var DateTime: TDateTime;
const NewDate: TDateTime );
== Данная функция поддерживается только в 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;
[Вернуться к содержанию]
|