TDateTime Zeitzone setzen

[kagi3624]

Moin,

ich muss hier Einen Unix Zeitstempel in menschenlesbare Zeit umwandeln. Mit UnixToDatetime von DateUtils wird es auch gemacht, bis auf die Sache, dass es in der UTC Zeitzone ausgegeben wird. Gibt es eine einfache Funktion bzw. Parameter um es auch UTC +2 zu setzen. Dankeschön.

Edit: Hab jetzt einfach IncHour draufgeworfen. K.A. ob es das "richtige" vorgehen ist. Wenn nicht, bitte sagen

[Der schöne Günther]

Das stimmt spätestens nach der nächsten Zeitumstellung nicht mehr.

In der Unit System.DateUtils steckt die Klasse TTimeZone

[Dalai]

Die Funktion UnixToDateTime hat in neueren Delphis einen optionalen zweiten Parameter AReturnUTC. Wenn du wirklich D6 benutzt, wirst du einen Umweg gehen müssen, z.B. mit den Funktionen DateTimeToSystemTime SystemTimeToTzSpecificLocalTime und SystemTimeToDateTime. Vielleicht hat Delphi sogar eine eigene Funktion zur Umrechnung von UTC in lokale Zeit (und/oder umgekehrt).

Grüße
Dalai

[kagi3624]

Zitat von Der schöne Günther:

Das stimmt spätestens nach der nächsten Zeitumstellung nicht mehr.

In der Unit System.DateUtils steckt die Klasse TTimeZone

Nicht in Delphi6. Da gibts gar nichts zu Zone.

Zitat von Dalai:

Die Funktion UnixToDateTime hat in neueren Delphis einen optionalen zweiten Parameter AReturnUTC. Wenn du wirklich D6 benutzt, wirst du einen Umweg gehen müssen, z.B. mit den Funktionen DateTimeToSystemTime SystemTimeToTzSpecificLocalTime und SystemTimeToDateTime. Vielleicht hat Delphi sogar eine eigene Funktion zur Umrechnung von UTC in lokale Zeit (und/oder umgekehrt).

Grüße
Dalai

Delphi-Quellcode:

    unixT1 := 1602679692;
    timeBegin := UnixToDateTime(unixT1);
    DateTimeToSystemTime(timeBegin, dSysTime);

Funktioniert leider nicht

Hab eine Lösung hier gefunden. Ist zwar für Delphi > 6, aber es funktioniert!

Delphi-Quellcode:

function LocalDateTimeFromUTCDateTime(const UTCDateTime: TDateTime): TDateTime;
var
  LocalSystemTime: TSystemTime;
  UTCSystemTime: TSystemTime;
  LocalFileTime: TFileTime;
  UTCFileTime: TFileTime;
begin
  DateTimeToSystemTime(UTCDateTime, UTCSystemTime);
  SystemTimeToFileTime(UTCSystemTime, UTCFileTime);
  if FileTimeToLocalFileTime(UTCFileTime, LocalFileTime) 
  and FileTimeToSystemTime(LocalFileTime, LocalSystemTime) then begin
    Result := SystemTimeToDateTime(LocalSystemTime);
  end else begin
    Result := UTCDateTime;  // Default to UTC if any conversion function fails.
  end;
end;

[Dalai]

Zitat von kagi3624:

Delphi-Quellcode:

    unixT1 := 1602679692;
    timeBegin := UnixToDateTime(unixT1);
    DateTimeToSystemTime(timeBegin, dSysTime);

Funktioniert leider nicht

Du musst schon alle genannten Funktionen benutzen. Du willst ja keine TSystemTime haben sondern TDateTime. Also häng noch SystemTimeToTzSpecificLocalTime und SystemTimeToDateTime dran, dann sollte das tun.

Grüße
Dalai

[TurboMagic]

Zitat von kagi3624:

Nicht in Delphi6. Da gibts gar nichts zu Zone.

Tja, neuere Versionen sind halt nicht nur neuer sondern haben auch neue zusätzliche Funktionen...

[kagi3624]

Zitat von TurboMagic:

Zitat von kagi3624:

Nicht in Delphi6. Da gibts gar nichts zu Zone.

Tja, neuere Versionen sind halt nicht nur neuer sondern haben auch neue zusätzliche Funktionen...

Solange die amerikanischen Atomraketen noch mit Fortran 4 fliegen... Ich hab mir weder Delphi noch irgendeine Version davon ausgesucht