Převod formátu TFileTime na formát TDateTime

Klíčová slova: TFileTime, TDateTime,FileTime2DateTime
Rubrika: Delphi

Jeden ze čtenářů mě nedávno požádal o radu, zda nevím jak převést formát TFileTime na formát TDateTime. Následující funkce FileTime2DateTime to tedy dokáže. 

function TJPFile.FileTime2DateTime(aFileTime: TFileTime): TDateTime;
 var
  aSystemTime : TSystemTime;
begin
  FileTimeToLocalFileTime(aFileTime,aFileTime);
  FileTimeToSystemTime(aFileTime,aSystemTime);
  Result := SystemTimeToDateTime(aSystemTime);
end;

 S formátem TDatetime se již dají dělat běžné operace, na které jste zvyklí.

Autor: Jiří Provazník
Datum vydání: 05.09.2007 | Zobrazeno: 4589
Permanentní odkaz: Převod formátu TFileTime na formát TDateTime

Komentáře (0)
Přidej vlastní komentář:
Následující (běžně neviditelná) pole slouží pro vnitřní identifikaci systému. Pokud je vyplníte nebude možné váš požadavek na straně serveru zpracovat:
URL:
contents:
Website:
Pro odeslání vašeho komentáře použijte tlačítko "Odeslat". Toto tlačítko nepoužívejte:

Následující položky je vhodné vyplnit:
Jméno :
Email :
Web :
Místo :
Hodnocení:
Hodnocení jako pomocí hvězdiček
1/5= nejhorší, 5/5=nejlepší