Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.07;
Скачать: CL | DM;

Вниз

Перевод TFileTime в TDateTime   Найти похожие ветки 

 
Nike   (2006-02-15 12:22) [0]

Привет всем! Подскажите, пожалуйста, как произвести преобразование переменной типа TFileTime в "более человечный" TDateTime. Я пользуюсь следующим вариантом, но мне он кажется "некрасивым" :)

//crTime - переменная TFileTime
//st - переменная  TSystemTime
//dt - переменная TDateTime
FileTimeToLocalFileTime(crTime,usTime);
FileTimeToSystemTime(usTime,st);
dt:=SystemTimeToDateTime(st);


 
Игорь Шевченко ©   (2006-02-15 12:49) [1]


> Я пользуюсь следующим вариантом, но мне он кажется "некрасивым"


Да вроде трудно другой вариант придумать.


 
GuAV ©   (2006-02-16 02:25) [2]

Другой вариант, ещё менее красивый, т.к. использует информацию о структуре FILETIME
var
 FT, LFT: TFileTime;
 Result: TDateTime;
 HundredNanoSecondsPassedSince1601: Int64 absolute LFT;
begin
 GetSystemTimeAsFileTime(FT);
 FileTimeToLocalFileTime(FT, LFT);
 Result := -109205; // StrToDateTime("1.01.1601");
 Result := Result + (HundredNanoSecondsPassedSince1601 / 10 / 1000 / MSecsPerDay);


 
AbrosimovA   (2006-02-16 11:20) [3]

function FileTimeToDateTime(const FileTime: _FILETIME): TDATETIME;
var LocalFileTime: TFileTime;
   Age : integer;
begin
FileTimeToLocalFileTime(FileTime,LocalFileTime);
if FileTimeToDosDateTime(LocalFileTime, LongRec(Age).Hi,
       LongRec(Age).Lo) then
     begin
       Result := FileDateToDateTime(Age);
       Exit;
     end;
Result := -1;
end;



Страницы: 1 вся ветка

Текущий архив: 2006.05.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.051 c
9-1129189206
Ricks
2005-10-13 11:40
2006.05.07
Миникарта


9-1128980051
Ricks
2005-10-11 01:34
2006.05.07
Элементарный ИИ в стратегиях


15-1144520015
Ketmar
2006-04-08 22:13
2006.05.07
играющие в Magic the Gathering, посветуйте, plz


15-1145187539
Константин Артемьев
2006-04-16 15:38
2006.05.07
Заказ на небольшую Delphi программу


1-1143918743
Sphinx
2006-04-01 23:12
2006.05.07
Определение собственного менеджера памяти