Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  BDE. Динамическое создание псевдонима
   Категория: Базы данных
  Wav файл внутри exe-файла
   Категория: Файловая система
  Удалить или оставить симолы
   Категория: Текст и строки
  Компоненты CoolBar и ControlBar
   Категория: Компоненты
  Удаление файла в корзину
   Категория: Файловая система
  Создать таблицу ABS (AbsoluteDB)
   Категория: Базы данных
  Компонент HotKey
   Категория: Компоненты

Delphi - Справочник: RecodeDate

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 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

  << Вернуться