Главная страница
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.043 c
2-1145481079
Golik
2006-04-20 01:11
2006.05.07
Транзакции!


15-1145081797
Kolan
2006-04-15 10:16
2006.05.07
Как в Async Professional сделана работа с RS485


4-1140205287
Eraser
2006-02-17 22:41
2006.05.07
ISecurityInformation и Aclui.pas


15-1144819024
Fin
2006-04-12 09:17
2006.05.07
Где задавать вопросы?


8-1134255414
Jrek
2005-12-11 01:56
2006.05.07
stream или channels