Функція DateTimeToFileDate – перетворює значення TDateTime у формат date/time формат файлу

Функція DateTimeToFileDate в Delphi перетворює значення TDateTime у формат date/time формат файлу.

Функція DateTimeToFileDate: Показ, модифікація та повторний показ дати останньої зміни файлу

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;