Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  
Подписаться на рассылку:
Клуб программистов


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

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

FileDateToDateTime  Конвертирует формат даты/времени файла в значение TDateTime

FileSetDate  Установка даты и времени последнего изменения файла

 
Пример кода : Показ, модификация, и повторный показ даты последнего изменения файла
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
 



© Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки  |     |  Английская версия