Delphiran - Delphi Tips
Question :
How can I decode a TFileTime to a TDateTime ?

Answer :
function FileTimeToDateTime(ft:TFileTime):TDateTime;
var ft1:TFileTime;
  st:TSystemTime;
begin
  if ft.dwLowDateTime+ft.dwHighDateTime=0 then
    Result:=0
  else begin
    FileTimeToLocalFileTime(ft,ft1);
    FileTimeToSystemTime(ft1,st);
    Result:=SystemTimeToDateTime(st);
  end;
end;
 
 

 
 
© All rights reserved 1999 BuyPin Software