UTC / Local Time

[Edelfix]

Hallo,

ich suche schon seit ein paar Stunden nach einer eleganten Lösung für folgendes Problem:

Ich benötige die UTC Zeit für die Abflugzeit 24.02.2022 18:20 Uhr(Lokale Zeit). Abflug Ort ist Los Angelos / US.

Was ich schon versucht habe ist:

  TTimeZone.Local.ToUniversalTime(); Dabei wird aber die lokale Deutsche Zeit berücksichtigt.

Hat jemand eine Idee?

[KodeZwerg]

Zitat von Edelfix:

Hat jemand eine Idee?

Jupp, solange es Windows ist solltest Du per SystemTimeToTzSpecificLocalTimeEx oder TzSpecificLocalTimeToSystemTime Erfolg haben.

Ich hoffe das hilft Dir und löst Dein Problem.

[Edelfix]

Welche Uses benötige ich für SystemTimeToTzSpecificLocalTimeEx?

[himitsu]

Tipp: Strg+Shift+F und als Suchverzeichnis z.B. $(BDS) oder $(BDS)\Sources (inkl. Unterverzeichnisse)
und für den Dateifilter mindestens *.pas;*.inc

[Edelfix]

Super Idee. Merke mir für die Zukunft.

Leider kein Treffer bei "SystemTimeToTzSpecificLocalTimeEx".

Habe jetzt etwas brauchbares gefunden das ich noch anpassen muss:

https://stackoverflow.com/questions/...ocal-time-zone

[KodeZwerg]

Zitat von Edelfix:

Welche Uses benötige ich für SystemTimeToTzSpecificLocalTimeEx?

Ich habe mir das selbst eingebunden da es Delphi nicht nativ unterstützt. Habe deinen letzten Link noch nicht angeschaut, wenn Du Hilfe dabei benötigst, kram ich meinen Source raus.

[himitsu]

Da das eine WinAPI ist, wäre der erste Blick ins MSDN ... kann sein, dass Delphi diese API aber noch nicht drin hat.

siehe MSDN oder Google (die Seiten zu den API wurden oben aber bereits verlinkt)
SystemTimeToTzSpecificLocalTimeEx
SystemTimeToTzSpecificLocalTimeEx

Und dann entweder selber die API von C++ nach Delphi übersetzen
oder schauen, ob es irgendwo eine Delphi-Library gibt, wo das schon übersetzt ist. (z.B. die JEDI)

[KodeZwerg]

Hier ist meine recht alte Portierung.

Delphi-Quellcode:

program Project1;

uses Windows, SysUtils, DateUtils;

// include winapi methods
function TzSpecificLocalTimeToSystemTime(lpTimeZoneInformation: PTimeZoneInformation; var lpLocalTime, lpUniversalTime: TSystemTime): BOOL; stdcall; external kernel32 name 'TzSpecificLocalTimeToSystemTime';
function SystemTimeToTzSpecificLocalTime(lpTimeZoneInformation: PTimeZoneInformation; var lpUniversalTime, lpLocalTime: TSystemTime): BOOL; stdcall; external kernel32 name 'SystemTimeToTzSpecificLocalTime';

// convert local time to UTC
function DateTimeToUTC(const Local: TDateTime): TDateTime;
var
  TZI: TTimeZoneInformation;
  LocalTime,
  UniversalTime: TSystemTime;
begin
  GetTimeZoneInformation(TZI);
  DateTimeToSystemTime(Local, LocalTime);
  TzSpecificLocalTimeToSystemTime(@TZI, LocalTime, UniversalTime);
  Result := SystemTimeToDateTime(UniversalTime);
end;

// convert UTC to local time
function UTCToLocalDateTime(const UTC: TDateTime): TDateTime;
var
  TZI: TTimeZoneInformation;
  LocalTime,
  UniversalTime: TSystemTime;
begin
  GetTimeZoneInformation(TZI);
  DateTimeToSystemTime(UTC, UniversalTime);
  SystemTimeToTzSpecificLocalTime(@TZI, UniversalTime, LocalTime);
  Result := SystemTimeToDateTime(LocalTime);
end;

// example usage
var
  Local,
  UTC: TDateTime;
begin
  Local := Now;
  UTC := DateTimeToUTC(Local);
  WriteLn('Local:  ' + DateTimeToStr(Local));
  WriteLn('UTC:    ' + DateTimeToStr(UTC));
  WriteLn('Offset: ' + IntToStr(SecondsBetween(Local, UTC) div 60 div 60));
  ReadLn;
end.

Dies ist ein Grundstein und sollte helfen das Problem zu lösen. (Der obige Code half mir den Zeitunterschied in Stunden zu ermitteln)

[Edelfix]

Super. Danke an alle.

[Lloyd Bates]

Ich möchte als Alternative noch https://github.com/pavkam/tzdb vorschlagen.