Einzelnen Beitrag anzeigen

Benutzerbild von user0815
user0815

Registriert seit: 5. Okt 2007
331 Beiträge
 
Delphi XE2 Professional
 
#6

AW: UnixToDateTime

  Alt 26. Mär 2015, 10:18
Delphi-Quellcode:
const
  UnixTime = 1427359860;
var
  dt : TDateTime;
begin
  dt := EncodeDateTime(1970, 1, 1, 0, 0, 0, 0);
  dt := IncSecond(dt, UnixTime);
  Memo1.Lines.Append(DateTimeToStr(dt)); // 26.03.2015 08:51:00 ???

  // @Der schöne Günther, passt
  dt := TTimeZone.Local.ToLocalTime(DateUtils.UnixToDateTime(UnixTime));
  Memo1.Lines.Append(DateTimeToStr(dt)); // 26.03.2015 09:51:00 = ok
alles komisch...
  Mit Zitat antworten Zitat