@Furtbichler,
die Funktion ist ungenau.
Für das Jahr 2018 kriege ich den 1.04.2018 als Sommerzeitbeginn,
weil der 1.04.2018 ein Sonntag ist.
Delphi-Quellcode:
Function AnfangDerSommerzeit(Jahr : Word) : TDateTime;
Begin
result := EncodeDate(Jahr,4,1);
result := (result - DayOfWeek(Result))+1;
End;