Delphi-Help

Описание

function DateTimeToFileDate ( DateTime : TDateTime ) : Integer;

Функция 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

Примечание