Konvertierung UnixTimeStamp nacht TDateTime und zurück

[Ghostwalker]

@Samso

Jup, aber nur bei Daten vor oder gleich dem 30.12.1899 .

Habs nochmal korregiert, lt. meinen Unit-Tests funktionierts so:

Delphi-Quellcode:

function UnixToDateTime(const value:int64):TDateTime
var
  d, t: Extended;
begin
  d := value/cSecPerDay + cUnixEpocheDT;
  t := frac(d);
  if (value <= cDelphiEpocheUT) then
  begin
    if (d>=0) or IsZero(t)
    then
      Result := d
    else
      Result := trunc(d) - t - 2;
  end
  else
    result := d;
end;