im Outlook Kalender werden ja ( automatisch ? ) die Feiertage als "AllDay" Event eingetragen.
ich habe nun folgenden Code eingebaut um fest zu stellen ob der "Allday" Event zum betreffenden Jahr passt
Code: Alles auswählen
lMoreTest := .T.
DO CASE
//
// gesetzliche Feiertage "variables" Datum ?
//
* CASE "Allerheiligen" $ cSUBJECT // 01.11 ???
* CASE "2. Weihnachtsfeiertag" $ cSUBJECT // 26.12
CASE "Buß- und Bettag" $ cSUBJECT
CASE "Christi Himmelfahrt" $ cSUBJECT
CASE "Fronleichnam" $ cSUBJECT
CASE "Heilige Drei Könige" $ cSUBJECT
CASE "Pfingstsonntag" $ cSUBJECT
CASE "Pfingstmontag" $ cSUBJECT
CASE "Karfreitag" $ cSUBJECT
CASE "Mariä Himmelfahrt" $ cSUBJECT
* CASE "Neujahrstag" $ cSUBJECT // 01.01
CASE "Ostermontag" $ cSUBJECT
CASE "Ostersonntag" $ cSUBJECT
* CASE "Reformationstag" $ cSUBJECT // 31.10 ???
* CASE "Tag der Arbeit" $ cSUBJECT // 01.05
* CASE "Tag der Deutschen Einheit" $ cSUBJECT // 03.10
* CASE "Weihnachtstag" $ cSUBJECT // 25.12
OTHERWISE
lMoreTest := .F.
ENDCASE