Referenz Zeitzone ohne Sommer/Winterzeit ?

[Sharky]

Zitat von shmia:

...Der Unterschied zwischen lokaler Zeit und UTC bekommt man mit: GetTimeZoneInformation

Das habe ich mal in eine Funktion gepackt:

Delphi-Quellcode:

function NowUTC: TDateTime;
var
  SystemTime: TSystemTime;
begin
  GetSystemTime(SystemTime);
  Result := SystemTimeToDateTime (SystemTime);
end;

function UtcTOLocalDateTime (aUTC : TDateTime) : TDateTime;
var
  tzi : TIME_ZONE_INFORMATION;
  utc : TSystemTime;
  localtime : TSystemTime;
begin
  DateTimeToSystemTime(aUTC,utc);
  GetTimeZoneInformation(tzi);
  SystemTimeToTzSpecificLocalTime(@tzi,utc,localtime);
  Result := SystemTimeToDateTime(localtime);
end;