Nur Mittel Europäsche Winterzeitzeit (MEZ)

[Uwe 111]

Hallo

Mein Problem ist, das im Countdownzähler nicht das die Sommerzeit umgeschalten wird.
Wie hier in den link Condownzähler

mein Quellcode ist

Delphi-Quellcode:

function TForm1.GetMEZ: TDateTime;
var
  ST : SystemTime;
  TZ : TTimeZoneInformation;
begin
  DecodeDateTime(Now,ST.wYear,ST.wMonth,ST.wDay,ST.wHour,ST.wMinute,ST.wSecond,ST.wMilliseconds);
  GetTimeZoneInformation(TZ);
  if TZ.DaylightBias >= 0 then
    begin
      ST.wHour := ST.wHour + TZ.Bias + TZ.StandardBias;
      ST.wDay := ST.wDay + TZ.Bias + TZ.StandardBias;
    end;
  Result := EncodeDateTime(ST.wYear,ST.wMonth,ST.wDay,ST.wHour,ST.wMinute,ST.wSecond,ST.wMilliseconds);
end;

Aber leider funktioniert es nicht so, kann mir da mal jemand Helfen.

MfG
Uwe