Преобразует значение 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
