Облака / 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.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Сохраняем Bitmap в поле dbase
   Категория: Базы данных
  Форма всегда наверху
   Категория: Компоненты
  Получение списка всех сетевых дисков из Delphi
   Категория: Интернет и Сети
  Определение размера каталога
   Категория: Файловая система
  Создание и удаление полей
   Категория: Базы данных
  Номер строки в memo под курсором
   Категория: Текст и строки
  Округление в меньшую сторону
   Категория: Математика
  К-во рабочих дней в месяце
   Категория: Математика

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

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 DateTimeToFileDat
function DateTimeToFileDate ( DateTime : TDateTime ) : Integer;
Функция (Unit SysUtils)
Преобразует значение TDateTime в формат date/time формат файла
Описание:
Функция DateTimeToFileDate преобразут величину TDateTime в DateTime формат использующийся для файловых дат.

Файловая дата является более ограниченной в диапазоне чем TDateTime : Год должен быть в промежутке 1980 - 2099. Миллисекунды должны быть округлены до двух знаков после запятой.
Пример кода: Показ, модификация, и повторный показ даты последнего изменения файла

var fileName : string; fileDate : Integer; newDateTime : TDateTime; begin // Попытка открыть файл Unit1.DCU для текущего проекта fileName := 'Unit1.DCU'; fileDate := FileAge(fileName); // Мы получили возраста файла? if fileDate > -1 then begin ShowMessage(fileName+' дата последнего изменения = '+ DateTimeToStr(FileDateToDateTime(fileDate))); // Теперь изменяем дату последнего изменения newDateTime := StrToDateTime('01/01/2000 12:34:56'); FileSetDate(fileName, DateTimeToFileDate(newDateTime)); end; // Мы изменили дату последнего изменения файла? fileDate := FileAge(fileName); if fileDate > -1 then ShowMessage(fileName+' дата последнего изменения = '+ DateTimeToStr(FileDateToDateTime(fileDate))); end;

Результат:
Unit1.DCU дата последнего изменения = 30/10/2002 15:16:22
Unit1.DCU дата последнего изменения = 01/01/2000 12:34:56

  << Вернуться