Einzelnen Beitrag anzeigen

kopernikus

Registriert seit: 8. Feb 2008
19 Beiträge
 
Delphi 10 Seattle Professional
 
#12

AW: Zeit, die der User angemeldet ist

  Alt 21. Okt 2011, 15:35
LogonTime ist die absolute Zeit als UTC (Datum + Tageszeit) im Format TFileTime. Eine Konvertierung in das TDateTime-Format kann mit folgender Routine erfolgen:
Delphi-Quellcode:
{ ------------------------------------------------------------------- }
// convert Filetime to Delphi time (TDateTime)
function FileTimeToDateTime (ft : TFileTime) : TDateTime;
var
  st : TSystemTime;
  dt : TDateTime;
begin
  FileTimeToSystemTime(ft,st);
  with st do begin
    if TryEncodeDate(wYear,wMonth,wDay,Result) then begin
      if TryEncodeTime(wHour,wMinute,wSecond,wMilliseconds,dt) then Result:=Result+dt;
      end
    else Result:=EncodeDate(1980,1,1);
    end;
  end;
  Mit Zitat antworten Zitat