DateTime in UTC convertieren

[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