Forum: Programmieren allgemein
by Sir Rufo,
13. Jan 2014
Hier mal eine Variante zum Berechnen der variablen Tage
Der Aufruf erfolgt dann so
uses
DayLightSaving;
var
LStartDate, LEndDate : TDate;
begin
LStartDate := TDayLightSaving.GetDate( 2014, 3, domLast, dowSunday );
Forum: Programmieren allgemein
by Sir Rufo,
12. Jan 2014
Es ist auch nur ein kleiner Fehler drin (das war der Intelligenztest :mrgreen:)
Function AnfangDerSommerzeit(Jahr : Word) : TDateTime;
Begin
result := EncodeDate(Jahr,4,1) - 1; // letzter Tag im März, statt erster Tag im April :o)
result := (result - DayOfWeek(Result))+1;
End;