posttime (int) in aktuelles Datum umrechnen und umgekehrt

[marabu]

Hallo,

ich würde es so probieren:

Delphi-Quellcode:

uses
  Windows,
  DateUtils;

function UTCToDateTime(utc: Int64): TDateTime;
var
  tzi: TTimeZoneInformation;
begin
  Result := UnixToDateTime(utc);
  GetTimeZoneInformation(tzi);
  Result := Result - tzi.Bias * OneMinute;
end;

function DateTimeToUTC(dt: TDateTime): Int64;
var
  tzi: TTimeZoneInformation;
begin
  Result := DateTimeToUnix(dt);
  GetTimeZoneInformation(tzi);
  Result := Result + tzi.Bias * 60;
end;

Grüße vom marabu