Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Bummi,
16. Sep 2012
Bitte ...
den entscheidenden Hinweis hast Du mit wt32m.exe selbst geliefert.
http://technet.microsoft.com/en-us/library/cc773263(v=ws.10).aspx
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Bummi,
16. Sep 2012
function GMTBias : Integer;
var TZI : TTimeZoneInformation;
begin
if GetTimeZoneInformation(TZI) = TIME_ZONE_ID_DAYLIGHT then Result := TZI.DaylightBias
else Result := 0; Result := Result + TZI.Bias;
end;
function LocalTimeToGMTTime(const D: TDateTime): TDateTime;
begin
Result := D + GMTBias / (24.0 * 60.0);
end;