Функція FileDateToDateTime в Delphi конвертує формат дати/часу файлу в значення TDateTime.
SysUtils unit
function FileDateToDateTime (const FileDate : Integer) : TDateTime;
Функція FileDateToDateTime конвертує Ціле значення числа FileDate (отримане, наприклад, з FileAge) до більш керованого формату TDateTime.
Є багато підпрограм в Delphi, які можуть впливати на цей формат TDateTime.
Функція FileDateToDateTime: Перетворення дати останньої зміни файлу на значення TDateTime
var
fileName : string;
fileDate : Integer;
begin
// Спроба відкрити файл Unit1.DCU для поточного проекту
fileName := 'Unit1.DCU';
fileDate := FileAge(fileName);
// Ми отримали вік файлу?
if fileDate > -1 then
ShowMessage(fileName+' дата останньої зміни = '+
DateToStr(FileDateToDateTime(fileDate)));
end;
Результат
Unit1.DCU дата останньої зміни = 10/01/2007
Подібні функції, процедури та команди
DateTimeToFileDate — перетворює значення TDateTime у формат date/time формат файлу.
FileAge — отримання дати/часу останньої зміни файлу, не відкриваючи його.
FileSetDate — встановлення дати та часу останньої зміни файлу.
