Wann beginnt bei einem Jahr x die Sommerzeit ?

[Furtbichler]

Wäre es möglich, das das so einfach geht?

Delphi-Quellcode:

Function AnfangDerSommerzeit(Jahr : Word) : TDateTime;
Begin
  result := EncodeDate(Jahr,4,1);
//  return result - DayOfWeek(Result); // Letzter Sonntag im März
  result := result - DayOfWeek(Result); 
End;

Function EndeDerSommerzeit(Jahr : Word) : TDateTime;
Begin
  result := EncodeDate(Jahr,11,1);
//  return result - DayOfWeek(Result); // Letzter Sonntag im Oktober
  result := result - DayOfWeek(Result); 
End;