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