Konvertierung UnixTimeStamp nacht TDateTime und zurück

[samso]

Zitat von Ghostwalker:

Samso's Variante funktioniert perfekt

Leider nicht. Bei der Uhrzeit 00:00:00 gab es Probleme, die ich so gelöst habe:

Delphi-Quellcode:

uses
  SysUtils, Math;

function UnixTimeToDatetime(UnixTime: Int64): TDatetime;
var
  d, t: Double;
begin
  d := UnixTime/SecsPerDay + UnixDateDelta;
  t := frac(d);
  if (d>=0) or IsZero(t)
  then
    Result := d
  else
    Result := trunc(d) - t - 2;
end;