Hallo Zusammen,

Ich verwende Delphi 5.

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

markieren

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

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)

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.

zusammenfalten · markieren

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}

zusammenfalten · markieren

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