Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: ReplaceDate
ReplaceDate
|
procedure ReplaceDate ( var DateTimeVar : TDateTime; const NewDateValue : TDateTime ) ; |
Процедура (Unit SysUtils)
|
Изменяет только часть даты TDateTime переменной
|
Описание:
|
Функция ReplaceDate модифицирует часть даты переменной DateTimeVar частью даты другой (NewDateValue) TDateTime переменной, не затрагивая время. |
Пример кода: Изменение даты, не изменяя время
|
var myDateTime, newDate : TDateTime; begin // Установка даты в 29/10/2002 12:34:56 myDateTime := EncodeDateTime(2002, 10, 29, 12, 34, 56, 0); ShowMessage('Начальная дата/время = '+DateTimeToStr(myDateTime)); // Теперь изменяем дату не затрагивая время newDate := EncodeDate(1957, 02, 18); ReplaceDate(myDateTime, newDate); ShowMessage('Новая дата/время = '+DateTimeToStr(myDateTime)); end;
Результат:
|
Начальная дата/время = 29/10/2002 12:34:56 Новая дата/время = 18/02/1957 12:34:56 |