Konvertierung UnixTimeStamp nacht TDateTime und zurück

[samso]

So, ich melde mich wieder zurück, mit folgendem Vorschlag:

Delphi-Quellcode:

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