Datum/Zeitwerte vergleichen

[michaelg]

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;