Deutsche Feiertage berechnen

[olaf]

Hallo zusammen,

ich habe die Datei mit der Berechnung der deutschen Feirtage von Thomas Franz erweitert, einen Bug gefixt, eine Id für den Feiertag hinzugefügt und in eine Klasse gepackt. Unit einfach einbinden und wie folgt aufrufen.

Delphi-Quellcode:

var
  Feiertage: TArFeiertage;
  i: Integer;
begin
  TFeiertag.FeiertageBerechnen(2019,Feiertage);

  for i := Low(Feiertage) to High(Feiertage) do
      ShowMessage(IntToStr(Feiertage[i].id)+ '   '+  Feiertage[i].Name+'   '+ FormatDateTime('ddd. d.m.yyyy',Feiertage[i].Datum));

Viel Spaß
Olaf