Toll, jetzt hatte ich extra was getippt und Klaus war schneller. Jetzt schicke ich es trotzdem ab
Delphi-Quellcode:
procedure justUnixTimeThings();
const
unixTime = 1427359860;
var
dateTime: TDateTime;
begin
dateTime := System.DateUtils.UnixToDateTime(unixTime);
Write('Unix timestamp converted to UTC: ');
WriteLn( DateTimeToStr(dateTime) );
Write('Converted to local timezone: ');
dateTime := TTimeZone.Local.ToLocalTime(dateTime);
WriteLn( DateTimeToStr(dateTime) );
end;
PS:
UnixToDateTime
hat bei mir noch einen optionalen zweiten Parameter
AReturnUTC: Boolean
aber das gab es in XE2 noch nicht. Damit hätte man sich die Zeitzonen-Umwandlung direkt sparen können.