Einzelnen Beitrag anzeigen

michaelg

Registriert seit: 20. Apr 2008
81 Beiträge
 
#11

AW: Datum/Zeitwerte vergleichen

  Alt 13. Sep 2018, 18:26
Ich hab hier auch noch eine Variante zum Konvertieren, die sieht ähnlich auch wie die von Kodezwerg:

Delphi-Quellcode:
  function FileTimeToDateTime(ft: FILETIME): TDateTime;
  var
    st: SYSTEMTIME;
    lt: FILETIME;
  begin
    FillChar(st, SizeOf(st), 0);
    FillChar(lt, SizeOf(lt), 0);
    FileTimeToLocalFileTime(ft, lt);
    FileTimeToSystemTime(lt, st);
    result := SystemTimeToDateTime(st);
  end;

  function DateTimeToFileTime(dt: TDateTime): FILETIME;
  var
    st: SYSTEMTIME;
    lt: FILETIME;
  begin
    FillChar(st, SizeOf(st), 0);
    FillChar(lt, SizeOf(lt), 0);
    FillChar(result, SizeOf(result), 0);
    DateTimeToSystemTime(dt, st);
    SystemTimeToFileTime(st, lt);
    LocalFileTimeToFileTime(lt, result);
  end;
  Mit Zitat antworten Zitat