Abweichung von UTC bekommen

[Luckie]

Zitat:

Zitat von Andreas L.

Auf den von dir verlinkten Artikel war ich ja schon. Aber dort steht nirgendwo was wie man herausbekommt ob gerade Sommer- oder Winterzeit ist. Wie lautet denn die benötigte Funktion?

*mit-dem-Kopf-schüttel*:

Zitat:

Return Value

If the function succeeds, it returns one of the following values.
TIME_ZONE_ID_UNKNOWN
TIME_ZONE_ID_STANDARD
TIME_ZONE_ID_DAYLIGHT

[Andreas L.]

Ich dachte immer DayLight heißt Tageslicht :|

[chaosben]

*den Namen zu "René Descartes" wechsel*

Die Sommerzeit heißt im Englischen "Daylight Saving Time" oder kurz DST.

*wieder Benjamin bin*

[Luckie]

Zitat:

Zitat von Andreas L.

Ich dachte immer DayLight heißt Tageslicht :|

Nun ja, wenn man seinen Kopf etwas bemüht, dann könnte man zu dem Schluss kommen, dass es wohl keine Zeitzone geben wird, die eine Tag- und Nachtzeit hat. Und demzufolge es sich eigentlich nur um die Sommerzeit handeln kann.

[Andreas L.]

Hab den Code jetzt ein bisschen modifiziert. Bekomme jetzt aber -2 Stunden:

Delphi-Quellcode:

function TXSPF.GetTimeZoneBias:String;
var
  tzi : TTimeZoneInformation;
begin
   case GetTimeZoneInformation(tzi) of
      TIME_ZONE_ID_STANDARD:
         result := intToStr(tzi.Bias div 60);

      TIME_ZONE_ID_DAYLIGHT:  // Sommerzeit
         Result := IntToStr((tzi.Bias + tzi.DaylightBias) div 60);
   else
      Result := '00';
   end;
end;

[Luckie]

Man vergleiche:
shmia:

Delphi-Quellcode:

function GetTimeZoneBias:TDateTime;
const
   MINUTES_PER_DAY = 24.0 * 60.0;
var
  tzi : TTimeZoneInformation;
begin
   case GetTimeZoneInformation(tzi) of
      TIME_ZONE_ID_STANDARD:
         result := (tzi.Bias) / MINUTES_PER_DAY;

      TIME_ZONE_ID_DAYLIGHT:  // Sommerzeit
         Result := (tzi.Bias+tzi.DaylightBias) / MINUTES_PER_DAY;
   else
      Result := 0.0;
   end;
end;

du:

Delphi-Quellcode:

function TXSPF.GetTimeZoneBias:String;
var
  tzi : TTimeZoneInformation;
begin
   case GetTimeZoneInformation(tzi) of
      TIME_ZONE_ID_STANDARD:
         result := intToStr(tzi.Bias div 60);

      TIME_ZONE_ID_DAYLIGHT:  // Sommerzeit
         Result := IntToStr((tzi.Bias + tzi.DaylightBias) div 60);
   else
      Result := '00';
   end;
end;

[Andreas L.]

Wenn ich div (24 * 60) verwende, bekomme ich als Ergebniss 30. :wiejetzt:

[alex517]

Hi,

ggf wäre noch folgendes zu beachten:

GetTimeZoneInformation gibt aktuellen Bias also passend zum Systemdatum zurück.
Das wäre heute den 24.05.2007 die Sommerzeit, also +02:00.

Wenn der HEUTE zu konvertierende Zeitpunkt z.B. der 18.02.2007 16:30 ist, so
galt am 18.02.2007 aber die Normal(Winter)zeit also +01:00.
18.02.2007 16:30 --> "18.02.2007T16:30:00+02:00" wär damit falsch!

Besonders interessant wird die Geschichte in den Nächten der Umstellung.

Aber vielleicht denke ich ja auch zu komplizert?!?

alex

[Andreas L.]

Die Unit beinhaltet genau das was ich brauche: DateTime2XML und wieder zurück :-)

Danke. Darf man die mit einer OpenSource-Komponente weitergeben?

[shmia]

Zitat:

Zitat von Andreas L.

Hab den Code jetzt ein bisschen modifiziert.

Ich fand den Code vorher besser!!
Wichtig ist auch die Formel : UTC = lokaleZeit + GetTimeZoneBias
Folgende Zeile zeigt die Zeit nach UTC an:

Delphi-Quellcode:

ShowMessage(DateTimeToStr(Now + GetTimeZoneBias)+ '[UTC]');

Der Abstand zwischen UTC und Lokaler Zeit ist:
lokaleZeit - UTC = -GetTimeZoneBias
Man beachte das Minuszeichen das sich nach der Formelumstellung ergibt!!
Also alles richtig; man muss es nur richtig interpretieren:

Delphi-Quellcode:

ShowMessage('Zeitunterschied lokale Zeit zu UTC: ' +TimeToStr(-GetTimeZoneBias));