Справочник функций и процедур Delphi: DateTimeToFileDate

  Навигация по первой букве:

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

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

DateTimeToFileDate
Функция
Преобразует значение TDateTime в формат date/time формат файла SysUtils unit
  function DateTimeToFileDate ( DateTime : TDateTime ) : Integer;

Google  
 
Описание
Функция 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
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook