Buss - BetTag richtig berechnen

[Flocke]

Nicht getestet, sollte aber so gehen:

Delphi-Quellcode:

Function GetBBetTag(Jahr: Word): TDate; //Buß-und Bettag
var Datum: TDate;
begin
  Datum := EncodeDate(Jahr, 11, 15);
  Result := Datum + (10 - DayOfWeek(Datum)) mod 7;
end;