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