Abweichung von UTC bekommen

[Andreas L.]

Hi,
ich muss ein Datum + Uhrzeit in folgenden Format darstellen:

Zitat:

Format: 2005-01-08T17:10:47-05:00

-05:00 ist die Abweichung von UTC. Doch wie bekommen ich diese Abweichung?

Bisher habe ich nur folgendes:

Delphi-Quellcode:

 
var
 bla: String; 
begin
 bla:= FormatDateTime('yyyy-mm-ddhh:nn:ss', Now);
 Insert('T', bla, 9);

Gibt es eine Funktion die mir diese Abweichung übergibt?

[chaosben]

Zitat von Das Microsoft Platform SDK:

GetTimeZoneInformation

The GetTimeZoneInformation function retrieves the current time-zone parameters. These parameters control the translations between Coordinated Universal Time (UTC) and local time.

[Andreas L.]

Ich habe mir das im PSDK mal angeschaut. Aber wie verwende ich das?

Zitat:

DWORD GetTimeZoneInformation(
LPTIME_ZONE_INFORMATION lpTimeZoneInformation
);

[chaosben]

Z.B. so:

Delphi-Quellcode:

var
  tzi : TTimeZoneInformation;
begin
  GetTimeZoneInformation(tzi);
  MessageDlg(intToStr(tzi.Bias), mtWarning, [mbOK], 0);
end;

[Andreas L.]

Hmm... das gibt mir jetzt -60 zurück. Also -1 Stunde. Haben wir hier in Deutschland nicht +1 Stunde?

[Luckie]

Sommer- und Winterzeit berücksichtigt?

[Andreas L.]

Zitat von Luckie:

Sommer- und Winterzeit berücksichtigt?

Ähm... Nö, hab nru den Code von chaosben kopiert. Wie berücksichtige ich denn die Sommer- und Winterzeit?

[Luckie]

In dem du sie entsprechend dazu addierst oder abziehst oder wie auch immer. Und bevor du fragst: GetTimeZoneInformation!

[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?

[shmia]

Delphi-Quellcode:

// liefert den Abstand der lokalen Zeit zu UTC
// UTC = lokaleZeit + GetTimeZoneBias
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;