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