DateTime in UTC convertieren

[Kostas]

Hallo Zusammen,

Ich verwende Delphi 5.

Wie kann ich bitte ein beliebiges DateTime convertieren in UTC?
Zum Beispiel:

Delphi-Quellcode:

var DateTime1, DateTime2 : TDateTime;
begin
  DateTime1 := StrToDateTime('10.12.2005 12:00:00'); {Winterzeit}
  DateTime2 := StrToDateTime(30.05.2005 12:00:00'); {Sommerzeit}

  DateTime1 := DateTimeToUTC(DateTime1); {DateTime1 sollte nun sein: 10.12.2005 10:00:00}
  DateTime2 := DateTimeToUTC(DateTime2); {DateTime2 sollte nun sein: 30.05.2005 11:00:00}

Gruß Kostas

[himitsu]

Irgendwo in der OH sollte drinstehen, wo man die Infos über die aktuelle ZeitZone drinsteht, oder hier im Forum och, ansonsten würde ich mal sowas wie FileTimToLocalTime versuchen (DateTime<>FileTime gibts auch ... siehe OH)

[Kostas]

Hallo Zusammen,

hab nach langem suchen eine Möglichkeit gefunden.

Zuerst die Unit GpTimezone aus dem link downloaden und anlegen.
http://17slon.com/gp/gp/files/gptimezone.htm

Die angelegte Unit hat ESBDates geused.
Zum download untern:
http://www.softandco.com/a/1870/esbdates.html

Mit den zwei Hilfsfunktionen ist das Thema gegessen.

Delphi-Quellcode:

{--------------------------------------------}
{}function UTCToTime(UTC:TDateTime):TDateTime;
{rechnet aus der immer gleichen UTC-Zeit Sommer-/Winnterzeit ab}
{--------------------------------------------}
var
  tz_info : TIME_ZONE_INFORMATION;
  minuten:integer;
begin
  GetTimeZoneInformation(tz_info);
  result := UTCToTZLocalTime(tz_info, UTC);

end;{UTCToTime}

Delphi-Quellcode:

{--------------------------------------------}
{}function TimeToUTC(ToUTC:TDateTime):TDateTime;
{rechnet aus der immer gleichen UTC-Zeit Sommer-/Winnterzeit dazu}
{--------------------------------------------}
var
  tz_info : TIME_ZONE_INFORMATION;
begin
  GetTimeZoneInformation(tz_info);
  result := TZLocalTimeToUTC(tz_info, ToUTC, false);


end;{TimeToUTC}

Gruß Kostas