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