ViaThinkSoft CodeLib
This article is in:
CodeLib → Programming aids → Delphi
unit Deutschland_Feiertage;
// Basierend auf:
// https://www.swissdelphicenter.ch/de/showcode.php?id=1278
// Angepasst durch Daniel Marschall, ViaThinkSoft,
// um alle Bundesländer korrekt zu behandeln
// Aktuelle Version unter https://www.viathinksoft.de/codelib/207
// Diese Unit arbeitet mit Jahreszahlen nach 1584
interface
uses
Windows, SysUtils;
type
TFeiertag = record
Date: TDateTime;
Name: string;
end;
TFeiertagTable = array of TFeiertag;
function IstDeutscherFeiertag(tag: TDateTime; plz: integer): boolean;
function DeutschlandFeiertage(Jahr: Word; plz: integer): TFeiertagTable;
implementation
uses
DateUtils;
{$REGION 'Bundesländer'}
// Wie wurden die Bundesländer extrahiert?
// 1. Spalten von https://cebus.net/de/plz-bundesland.htm in Plaintext-Datei kopiert
// 2. Whitespace mit Tab ersetzen, mit TextPad RegEx:
// Suche: " "
// Ersetze: "\t"
// 3. In Excel einfügen
// 4. In Excel sortieren nach Name (Spalte 2), Markierung erweitern
// 5. PLZ-Range (erste Spalte) aus Excel in TextPad kopieren
// 6. Delphi Code mit folgendem TextPad RegEx erzeugen:
// Suche: "(.+)\-(.+)"
// Ersetze: " \(\(plz >= \1\) and \(plz <= \2\)\) or // \1-\2"
function IstBadenWuerttemberg(plz: integer): boolean;
begin
// Extrahiert von https://cebus.net/de/plz-bundesland.htm
result :=
((plz >= 63928) and (plz <= 63928)) or // 63928-63928
((plz >= 64754) and (plz <= 64754)) or // 64754-64754
((plz >= 68001) and (plz <= 68312)) or // 68001-68312
((plz >= 68520) and (plz <= 68549)) or // 68520-68549
((plz >= 68701) and (plz <= 69234)) or // 68701-69234
((plz >= 69240) and (plz <= 69429)) or // 69240-69429
((plz >= 69434) and (plz <= 69434)) or // 69434-69434
((plz >= 69435) and (plz <= 69469)) or // 69435-69469
((plz >= 69489) and (plz <= 69502)) or // 69489-69502
((plz >= 69510) and (plz <= 69514)) or // 69510-69514
((plz >= 70001) and (plz <= 74592)) or // 70001-74592
((plz >= 74594) and (plz <= 76709)) or // 74594-76709
((plz >= 77601) and (plz <= 79879)) or // 77601-79879
((plz >= 88001) and (plz <= 88099)) or // 88001-88099
((plz >= 88147) and (plz <= 88147)) or // 88147-88147
((plz >= 88181) and (plz <= 89079)) or // 88181-89079
((plz >= 89081) and (plz <= 89085)) or // 89081-89085
((plz >= 89090) and (plz <= 89198)) or // 89090-89198
((plz >= 89501) and (plz <= 89619)) or // 89501-89619
((plz >= 97861) and (plz <= 97877)) or // 97861-97877
((plz >= 97893) and (plz <= 97896)) or // 97893-97896
((plz >= 97897) and (plz <= 97900)) or // 97897-97900
((plz >= 97911) and (plz <= 97999)); // 97911-97999
end;
function IstBayern(plz: integer): boolean;
begin
// Extrahiert von https://cebus.net/de/plz-bundesland.htm
result :=
((plz >= 63701) and (plz <= 63774)) or // 63701-63774
((plz >= 63776) and (plz <= 63928)) or // 63776-63928
((plz >= 63930) and (plz <= 63939)) or // 63930-63939
((plz >= 74594) and (plz <= 74594)) or // 74594-74594
((plz >= 80001) and (plz <= 87490)) or // 80001-87490
((plz >= 87493) and (plz <= 87561)) or // 87493-87561
((plz >= 87571) and (plz <= 87789)) or // 87571-87789
((plz >= 88101) and (plz <= 88146)) or // 88101-88146
((plz >= 88147) and (plz <= 88179)) or // 88147-88179
((plz >= 89081) and (plz <= 89081)) or // 89081-89081
((plz >= 89087) and (plz <= 89087)) or // 89087-89087
((plz >= 89201) and (plz <= 89449)) or // 89201-89449
((plz >= 90001) and (plz <= 96489)) or // 90001-96489
((plz >= 97001) and (plz <= 97859)) or // 97001-97859
((plz >= 97888) and (plz <= 97892)) or // 97888-97892
((plz >= 97896) and (plz <= 97896)) or // 97896-97896
((plz >= 97901) and (plz <= 97909)); // 97901-97909
end;
function IstBerlin(plz: integer): boolean;
begin
// Extrahiert von https://cebus.net/de/plz-bundesland.htm
result :=
((plz >= 10001) and (plz <= 14330)); // 10001-14330
end;
function IstBrandenburg(plz: integer): boolean;
begin
// Extrahiert von https://cebus.net/de/plz-bundesland.htm
result :=
((plz >= 01941) and (plz <= 01998)) or // 01941-01998
((plz >= 03001) and (plz <= 03253)) or // 03001-03253
((plz >= 04891) and (plz <= 04938)) or // 04891-04938
((plz >= 14401) and (plz <= 14715)) or // 14401-14715
((plz >= 14723) and (plz <= 16949)) or // 14723-16949
((plz >= 17258) and (plz <= 17258)) or // 17258-17258
((plz >= 17261) and (plz <= 17291)) or // 17261-17291
((plz >= 17309) and (plz <= 17309)) or // 17309-17309
((plz >= 17321) and (plz <= 17321)) or // 17321-17321
((plz >= 17326) and (plz <= 17326)) or // 17326-17326
((plz >= 17335) and (plz <= 17335)) or // 17335-17335
((plz >= 17337) and (plz <= 17337)) or // 17337-17337
((plz >= 19307) and (plz <= 19357)); // 19307-19357
end;
function IstBremen(plz: integer): boolean;
begin
// Extrahiert von https://cebus.net/de/plz-bundesland.htm
result :=
((plz >= 27501) and (plz <= 27580)) or // 27501-27580
((plz >= 28001) and (plz <= 28779)); // 28001-28779
end;
function IstHamburg(plz: integer): boolean;
begin
// Extrahiert von https://cebus.net/de/plz-bundesland.htm
result :=
((plz >= 20001) and (plz <= 21037)) or // 20001-21037
((plz >= 21039) and (plz <= 21170)) or // 21039-21170
((plz >= 22001) and (plz <= 22113)) or // 22001-22113
((plz >= 22115) and (plz <= 22143)) or // 22115-22143
((plz >= 22145) and (plz <= 22145)) or // 22145-22145
((plz >= 22147) and (plz <= 22786)) or // 22147-22786
((plz >= 27499) and (plz <= 27499)); // 27499-27499
end;
function IstHessen(plz: integer): boolean;
begin
// Extrahiert von https://cebus.net/de/plz-bundesland.htm
result :=
((plz >= 34001) and (plz <= 34329)) or // 34001-34329
((plz >= 34355) and (plz <= 34355)) or // 34355-34355
((plz >= 34356) and (plz <= 34399)) or // 34356-34399
((plz >= 34441) and (plz <= 36399)) or // 34441-36399
((plz >= 37194) and (plz <= 37195)) or // 37194-37195
((plz >= 37201) and (plz <= 37299)) or // 37201-37299
((plz >= 55240) and (plz <= 55252)) or // 55240-55252
((plz >= 59969) and (plz <= 59969)) or // 59969-59969
((plz >= 60001) and (plz <= 63699)) or // 60001-63699
((plz >= 63776) and (plz <= 63776)) or // 63776-63776
((plz >= 64201) and (plz <= 64753)) or // 64201-64753
((plz >= 64754) and (plz <= 65326)) or // 64754-65326
((plz >= 65327) and (plz <= 65391)) or // 65327-65391
((plz >= 65392) and (plz <= 65556)) or // 65392-65556
((plz >= 65583) and (plz <= 65620)) or // 65583-65620
((plz >= 65627) and (plz <= 65627)) or // 65627-65627
((plz >= 65701) and (plz <= 65936)) or // 65701-65936
((plz >= 68501) and (plz <= 68519)) or // 68501-68519
((plz >= 68601) and (plz <= 68649)) or // 68601-68649
((plz >= 69235) and (plz <= 69239)) or // 69235-69239
((plz >= 69430) and (plz <= 69431)) or // 69430-69431
((plz >= 69434) and (plz <= 69434)) or // 69434-69434
((plz >= 69479) and (plz <= 69488)) or // 69479-69488
((plz >= 69503) and (plz <= 69509)) or // 69503-69509
((plz >= 69515) and (plz <= 69518)); // 69515-69518
end;
function IstMecklenburgVorpommern(plz: integer): boolean;
begin
// Extrahiert von https://cebus.net/de/plz-bundesland.htm
result :=
((plz >= 17001) and (plz <= 17256)) or // 17001-17256
((plz >= 17258) and (plz <= 17259)) or // 17258-17259
((plz >= 17301) and (plz <= 17309)) or // 17301-17309
((plz >= 17309) and (plz <= 17321)) or // 17309-17321
((plz >= 17321) and (plz <= 17322)) or // 17321-17322
((plz >= 17328) and (plz <= 17331)) or // 17328-17331
((plz >= 17335) and (plz <= 17335)) or // 17335-17335
((plz >= 17337) and (plz <= 19260)) or // 17337-19260
((plz >= 19273) and (plz <= 19273)) or // 19273-19273
((plz >= 19273) and (plz <= 19306)) or // 19273-19306
((plz >= 19357) and (plz <= 19417)) or // 19357-19417
((plz >= 23921) and (plz <= 23999)); // 23921-23999
end;
function IstNiedersachsen(plz: integer): boolean;
begin
// Extrahiert von https://cebus.net/de/plz-bundesland.htm
result :=
((plz >= 19271) and (plz <= 19273)) or // 19271-19273
((plz >= 21202) and (plz <= 21449)) or // 21202-21449
((plz >= 21522) and (plz <= 21522)) or // 21522-21522
((plz >= 21601) and (plz <= 21789)) or // 21601-21789
((plz >= 26001) and (plz <= 27478)) or // 26001-27478
((plz >= 27607) and (plz <= 27809)) or // 27607-27809
((plz >= 28784) and (plz <= 29399)) or // 28784-29399
((plz >= 29431) and (plz <= 31868)) or // 29431-31868
((plz >= 34331) and (plz <= 34353)) or // 34331-34353
((plz >= 34355) and (plz <= 34355)) or // 34355-34355
((plz >= 37001) and (plz <= 37194)) or // 37001-37194
((plz >= 37197) and (plz <= 37199)) or // 37197-37199
((plz >= 37401) and (plz <= 37649)) or // 37401-37649
((plz >= 37689) and (plz <= 37691)) or // 37689-37691
((plz >= 37697) and (plz <= 38479)) or // 37697-38479
((plz >= 38501) and (plz <= 38729)) or // 38501-38729
((plz >= 48442) and (plz <= 48465)) or // 48442-48465
((plz >= 48478) and (plz <= 48480)) or // 48478-48480
((plz >= 48486) and (plz <= 48488)) or // 48486-48488
((plz >= 48497) and (plz <= 48531)) or // 48497-48531
((plz >= 49001) and (plz <= 49459)) or // 49001-49459
((plz >= 49551) and (plz <= 49849)); // 49551-49849
end;
function IstNordrheinWestfalen(plz: integer): boolean;
begin
// Extrahiert von https://cebus.net/de/plz-bundesland.htm
result :=
((plz >= 32001) and (plz <= 33829)) or // 32001-33829
((plz >= 34401) and (plz <= 34439)) or // 34401-34439
((plz >= 37651) and (plz <= 37688)) or // 37651-37688
((plz >= 37692) and (plz <= 37696)) or // 37692-37696
((plz >= 40001) and (plz <= 48432)) or // 40001-48432
((plz >= 48466) and (plz <= 48477)) or // 48466-48477
((plz >= 48481) and (plz <= 48485)) or // 48481-48485
((plz >= 48489) and (plz <= 48496)) or // 48489-48496
((plz >= 48541) and (plz <= 48739)) or // 48541-48739
((plz >= 49461) and (plz <= 49549)) or // 49461-49549
((plz >= 50101) and (plz <= 51597)) or // 50101-51597
((plz >= 51601) and (plz <= 53359)) or // 51601-53359
((plz >= 53581) and (plz <= 53604)) or // 53581-53604
((plz >= 53621) and (plz <= 53949)) or // 53621-53949
((plz >= 57001) and (plz <= 57489)) or // 57001-57489
((plz >= 58001) and (plz <= 59966)) or // 58001-59966
((plz >= 59969) and (plz <= 59969)); // 59969-59969
end;
function IstRheinlandPfalz(plz: integer): boolean;
begin
// Extrahiert von https://cebus.net/de/plz-bundesland.htm
result :=
((plz >= 51598) and (plz <= 51598)) or // 51598-51598
((plz >= 53401) and (plz <= 53579)) or // 53401-53579
((plz >= 53614) and (plz <= 53619)) or // 53614-53619
((plz >= 54181) and (plz <= 55239)) or // 54181-55239
((plz >= 55253) and (plz <= 56869)) or // 55253-56869
((plz >= 57501) and (plz <= 57648)) or // 57501-57648
((plz >= 65326) and (plz <= 65326)) or // 65326-65326
((plz >= 65391) and (plz <= 65391)) or // 65391-65391
((plz >= 65558) and (plz <= 65582)) or // 65558-65582
((plz >= 65621) and (plz <= 65626)) or // 65621-65626
((plz >= 65629) and (plz <= 65629)) or // 65629-65629
((plz >= 66461) and (plz <= 66509)) or // 66461-66509
((plz >= 66841) and (plz <= 67829)) or // 66841-67829
((plz >= 76711) and (plz <= 76891)); // 76711-76891
end;
function IstSaarland(plz: integer): boolean;
begin
// Extrahiert von https://cebus.net/de/plz-bundesland.htm
result :=
((plz >= 66001) and (plz <= 66459)) or // 66001-66459
((plz >= 66511) and (plz <= 66839)); // 66511-66839
end;
function IstSachsen(plz: integer): boolean;
begin
// Extrahiert von https://cebus.net/de/plz-bundesland.htm
result :=
((plz >= 01001) and (plz <= 01936)) or // 01001-01936
((plz >= 02601) and (plz <= 02999)) or // 02601-02999
((plz >= 04001) and (plz <= 04579)) or // 04001-04579
((plz >= 04641) and (plz <= 04889)) or // 04641-04889
((plz >= 07919) and (plz <= 07919)) or // 07919-07919
((plz >= 07919) and (plz <= 07919)) or // 07919-07919
((plz >= 07951) and (plz <= 07951)) or // 07951-07951
((plz >= 07952) and (plz <= 07952)) or // 07952-07952
((plz >= 07982) and (plz <= 07982)) or // 07982-07982
((plz >= 07985) and (plz <= 07985)) or // 07985-07985
((plz >= 08001) and (plz <= 09669)); // 08001-09669
end;
function IstSachsenAnhalt(plz: integer): boolean;
begin
// Extrahiert von https://cebus.net/de/plz-bundesland.htm
result :=
((plz >= 06001) and (plz <= 06548)) or // 06001-06548
((plz >= 06601) and (plz <= 06928)) or // 06601-06928
((plz >= 14715) and (plz <= 14715)) or // 14715-14715
((plz >= 29401) and (plz <= 29416)) or // 29401-29416
((plz >= 38481) and (plz <= 38489)) or // 38481-38489
((plz >= 38801) and (plz <= 39649)); // 38801-39649
end;
function IstSchleswigHolstein(plz: integer): boolean;
begin
// Extrahiert von https://cebus.net/de/plz-bundesland.htm
result :=
((plz >= 21039) and (plz <= 21039)) or // 21039-21039
((plz >= 21451) and (plz <= 21521)) or // 21451-21521
((plz >= 21524) and (plz <= 21529)) or // 21524-21529
((plz >= 22113) and (plz <= 22113)) or // 22113-22113
((plz >= 22145) and (plz <= 22145)) or // 22145-22145
((plz >= 22145) and (plz <= 22145)) or // 22145-22145
((plz >= 22801) and (plz <= 23919)) or // 22801-23919
((plz >= 24001) and (plz <= 25999)) or // 24001-25999
((plz >= 27483) and (plz <= 27498)); // 27483-27498
end;
function IstThueringen(plz: integer): boolean;
begin
// Extrahiert von https://cebus.net/de/plz-bundesland.htm
result :=
((plz >= 04581) and (plz <= 04639)) or // 04581-04639
((plz >= 06551) and (plz <= 06578)) or // 06551-06578
((plz >= 07301) and (plz <= 07919)) or // 07301-07919
((plz >= 07919) and (plz <= 07919)) or // 07919-07919
((plz >= 07920) and (plz <= 07950)) or // 07920-07950
((plz >= 07952) and (plz <= 07952)) or // 07952-07952
((plz >= 07953) and (plz <= 07980)) or // 07953-07980
((plz >= 07985) and (plz <= 07985)) or // 07985-07985
((plz >= 07985) and (plz <= 07989)) or // 07985-07989
((plz >= 36401) and (plz <= 36469)) or // 36401-36469
((plz >= 37301) and (plz <= 37359)) or // 37301-37359
((plz >= 96501) and (plz <= 96529)) or // 96501-96529
((plz >= 98501) and (plz <= 99998)); // 98501-99998
end;
{$ENDREGION}
{$REGION 'Feiertage in Bundesländern in vereinzelten Teilen'}
function BayernHatMariaeHimmelfahrt(plz: integer): boolean;
begin
(*
TODO, laut https://www.dgb.de/gesetzliche-feiertage-deutschland:
- In Bayern nur in den derzeit ca. 1700 Gemeinden mit überwiegend katholischer Bevölkerung,
in den restlichen ca. 350 bayerischen Gemeinden kein gesetzlicher Feiertag.
*)
result := true; // da 81% von Bayern den Feiertag hat, machen wir true
end;
function ThueringenHatFronleichnam(plz: integer): boolean;
begin
(*
Laut https://www.dgb.de/gesetzliche-feiertage-deutschland :
In Thüringen nur im im Landkreis Eichsfeld
sowie in folgenden Gemeinden des Unstrut-Hainich-Kreises und des Wartburgkreises:
Anrode (nur in den Ortsteilen Bickenriede und Zella),
Brunnhartshausen (nur in den Ortsteilen Föhlritz und Steinberg),
Buttlar,
Dünwald (nur in den Ortsteilen Beberstedt und Hüpstedt),
Geisa,
Rodeberg (nur im Ortsteil Struth),
Schleid,
Südeichsfeld und
Zella/Rhön.
*)
result :=
// Landkreis Eichsfeld
// https://home.meinestadt.de/kreis-eichsfeld/postleitzahlen
(plz = 37318) or // Wüstheuterode, Kreis Eichsfeld, Thüringen
(plz = 37308) or // Volkerode, Kreis Eichsfeld, Thüringen
(plz = 37339) or // Ferna, Kreis Eichsfeld, Thüringen
(plz = 37339) or // Leinefelde-Worbis, Kreis Eichsfeld, Thüringen
(plz = 37327) or // (ebenso)
(plz = 37339) or // Breitenworbis, Kreis Eichsfeld, Thüringen
(plz = 37355) or // (ebenso)
(plz = 37359) or // Küllstedt, Kreis Eichsfeld, Thüringen
(plz = 37327) or // Wingerode, Kreis Eichsfeld, Thüringen
(plz = 37327) or // Niederorschel, Kreis Eichsfeld, Thüringen
(plz = 37355) or // (ebenso)
(plz = 37351) or // Silberhausen, Kreis Eichsfeld, Thüringen
(plz = 37355) or // Kleinbartloff, Kreis Eichsfeld, Thüringen
(plz = 37345) or // Am Ohmberg, Kreis Eichsfeld, Thüringen
// Gemeinden des Unstrut-Hainich-Kreises und des Wartburgkreises (PLZ von Google, Wikipedia, etc.):
// TODO: Anrode (nur in den Ortsteilen Bickenriede und Zella),
// TODO: Brunnhartshausen (nur in den Ortsteilen Föhlritz und Steinberg),
(plz = 36419) or // Buttlar
// TODO: Dünwald (nur in den Ortsteilen Beberstedt und Hüpstedt)
(plz = 36419) or // Geisa
// TODO: Rodeberg (nur im Ortsteil Struth)
(plz = 36419) or // Schleid
(plz = 99988) or // Südeichsfeld
(plz = 36452); // Zella/Rhön
end;
function SachsenHatFronleichnam(plz: integer): boolean;
begin
(*
Laut https://www.dgb.de/gesetzliche-feiertage-deutschland:
In Sachsen nur in folgenden katholisch geprägten Gemeinden des sorbischen Siedlungsgebietes im Landkreis Bautzen:
Bautzen (nur in den Ortsteilen Bolbritz und Salzenforst),
Crostwitz,
Göda (nur im Ortsteil Prischwitz),
Großdubrau (nur im Ortsteil Sdier),
Hoyerswerda (nur im Ortsteil Dörgenhausen),
Königswartha (nicht im Ortsteil Wartha),
Nebelschütz,
Neschwitz (nur in den Ortsteilen Neschwitz und Saritsch),
Panschwitz-Kuckau,
Puschwitz,
Räckelwitz,
Radibor,
Ralbitz-Rosenthal,
Wittichenau
*)
result :=
// (PLZ von Google, Wikipedia, etc.)
// TODO: Bautzen (nur in den Ortsteilen Bolbritz und Salzenforst)
(plz = 01920) or // Crostwitz
// TODO: Göda (nur im Ortsteil Prischwitz)
// TODO: Großdubrau (nur im Ortsteil Sdier)
// TODO: Hoyerswerda (nur im Ortsteil Dörgenhausen)
// TODO: Königswartha (nicht im Ortsteil Wartha)
(plz = 01920) or // Nebelschütz
// TODO: Neschwitz (nur in den Ortsteilen Neschwitz und Saritsch)
(plz = 01906) or // Panschwitz-Kuckau
(plz = 01920) or // (ebenso)
(plz = 02699) or // Puschwitz
(plz = 01920) or // Räckelwitz
(plz = 02627) or // Radibor
(plz = 02694) or // (ebenso)
(plz = 01920) or // Ralbitz-Rosenthal
(plz = 02997); // Wittichenau
end;
function IstAugsburgStadtgebiet(plz: integer): boolean;
begin
// Extrahiert von https://www.suche-postleitzahl.org/augsburg-plz-86150-86199.35f2
result :=
(plz = 86159) or // Antonsviertel
(plz = 86199) or // Bergheim
(plz = 86156) or // Bärenkeller
(plz = 86169) or // Firnhaberau
(plz = 86199) or // Göggingen
(plz = 86169) or // Hammerschmiede
(plz = 86179) or // Haunstetten-Siebenbrunn
(plz = 86199) or
(plz = 86159) or // Hochfeld
(plz = 86161) or //
(plz = 86163) or // Hochzoll
(plz = 86150) or // Innenstadt
(plz = 86152) or //
(plz = 86153) or //
(plz = 86159) or //
(plz = 86161) or //
(plz = 86199) or // Inningen
(plz = 86156) or // Kriegshaber
(plz = 86157) or //
(plz = 86165) or // Lechhausen
(plz = 86167) or //
(plz = 86169) or //
(plz = 86154) or // Oberhausen
(plz = 86156) or //
(plz = 86156) or // Pfersee
(plz = 86157) or //
(plz = 86161) or // Spickel-Herrenbach
(plz = 86159) or // Universitätsviertel
(plz = 86161);
end;
{$ENDREGION}
{$REGION 'Spezielle Datumsberechnungen'}
function DritterMittwochImNovember(Jahr: integer): TDateTime;
begin
result := EncodeDate(Jahr, 11, 1);
result := result + ((11 - DayOfWeek(result)) mod 7) + 14;
end;
function Ostersonntag(Jahr: integer): TDateTime;
var
A, B, C, D, E, F, G, H, I, K, L, M, N, P: Word;
Tag, Monat: Word;
begin
a := Jahr mod 19;
b := Jahr div 100;
c := Jahr mod 100;
d := b div 4;
e := b mod 4;
f := (b + 8) div 25;
g := (b - f + 1) div 3;
h := (19 * a + b - d - g + 15) mod 30;
i := c div 4;
k := c mod 4;
l := (32 + 2 * e + 2 * i - h - k) mod 7;
m := (a + 11 * h + 22 * l) div 451;
n := (h + l - 7 * m + 114) div 31;
p := (h + l - 7 * m + 114) mod 31 + 1;
Tag := p;
Monat := n;
Result := EncodeDate(Jahr, Monat, Tag);
end;
{$ENDREGION}
function IstDeutscherFeiertag(tag: TDateTime; plz: integer): boolean;
var
ht: TFeiertagTable;
h: TFeiertag;
begin
ht := DeutschlandFeiertage(YearOf(tag), plz);
for h in ht do
begin
if SameDate(tag, h.Date) then
begin
result := true;
exit;
end;
end;
result := false;
end;
function DeutschlandFeiertage(Jahr: Word; plz: integer): TFeiertagTable;
// Funktion, um einen Feiertag über seinen Tag\Monat hinzuzufügen
procedure AddFeiertag(DD, MM: Word; HDName: string); overload;
begin
SetLength(Result, High(Result) + 2);
with Result[High(Result)] do
begin
Date := EncodeDate(Jahr, MM, DD);
Name := HDName;
end;
end;
//Funktion, um den Feiertag über die Datumsseriennummer hinzuzufügen
procedure AddFeiertag(HDDate: TDateTime; HDName: string); overload;
begin
SetLength(Result, High(Result) + 2);
with Result[High(Result)] do
begin
Date := HDDate;
Name := HDName;
end;
end;
begin
// siehe https://www.dgb.de/gesetzliche-feiertage-deutschland
AddFeiertag(1, 1, 'Neujahr');
if IstBadenWuerttemberg(plz) or
IstBayern(plz) or
IstSachsenAnhalt(plz) then
begin
AddFeiertag(6, 1, 'Heilige Drei Könige');
end;
if IstBerlin(plz) then
begin
AddFeiertag(8, 3, 'Internationaler Frauentag');
end;
AddFeiertag(OsterSonntag(Jahr) - 2, 'Karfreitag');
if IstBrandenburg(plz) then
begin
AddFeiertag(OsterSonntag(Jahr), 'Ostersonntag');
end;
AddFeiertag(OsterSonntag(Jahr) + 1, 'Ostermontag');
AddFeiertag(1, 5, 'Tag der Arbeit');
AddFeiertag(OsterSonntag(Jahr) + 39, 'Christi Himmelfahrt');
if IstBrandenburg(plz) then
begin
AddFeiertag(OsterSonntag(Jahr) + 49, 'Pfingstsonntag');
end;
AddFeiertag(OsterSonntag(Jahr) + 50, 'Pfingstmontag');
if IstBadenWuerttemberg(plz) or
IstBayern(plz) or
IstHessen(plz) or
IstNordrheinWestfalen(plz) or
IstRheinlandPfalz(plz) or
IstSaarland(plz) or
SachsenHatFronleichnam(plz) or
ThueringenHatFronleichnam(plz) then
begin
AddFeiertag(OsterSonntag(Jahr) + 60, 'Fronleichnam');
end;
if IstAugsburgStadtgebiet(plz) then
begin
(*
Laut https://www.dgb.de/gesetzliche-feiertage-deutschland:
- Nur im Stadtgebiet von Augsburg (nicht jedoch im angrenzenden Umland).
*)
AddFeiertag(8, 8, 'Augsburger Friedensfest');
end;
if IstSaarland(plz) or
BayernHatMariaeHimmelfahrt(plz) then
begin
AddFeiertag(15, 8, 'Mariä Himmelfahrt');
end;
if IstThueringen(plz) then
begin
AddFeiertag(20, 9, 'Weltkindertag');
end;
AddFeiertag(3, 10, 'Tag der deutschen Einheit');
if IstBrandenburg(plz) or
IstBremen(plz) or
IstHamburg(plz) or
IstMecklenburgVorpommern(plz) or
IstNiedersachsen(plz) or
IstSachsen(plz) or
IstSachsenAnhalt(plz) or
IstSchleswigHolstein(plz) or
IstThueringen(plz) then
begin
AddFeiertag(31, 10, 'Reformationstag');
end;
if IstBadenWuerttemberg(plz) or
IstBayern(plz) or
IstNordrheinWestfalen(plz) or
IstRheinlandPfalz(plz) or
IstSaarland(plz) then
begin
AddFeiertag(1, 11, 'Allerheiligen');
end;
if IstSachsen(plz) then
begin
// Ermittelt den 3. Mitwoch im November
AddFeiertag(DritterMittwochImNovember(Jahr), 'Buß- und Bettag');
end;
// AddFeiertag(24, 12, 'Heiligabend');
AddFeiertag(25, 12, '1. Weihnachtsfeiertag');
AddFeiertag(26, 12, '2. Weihnachtsfeiertag');
// AddFeiertag(31, 12, 'Silvester');
end;
end.Daniel Marschall
ViaThinkSoft Co-Founder
ViaThinkSoft Co-Founder