Habus Homepage
OpenOffice
Home
Download
OpenOffice
Linksammlung
Kontakt
Rechtliches
Tipps und Tricks OpenOffice Macro
Hier finden sie ein paar Hinweise zur Bedienung von OpenOffice Macro
Deutsche Feiertage berechnen
Die Feiertage eines Jahres können sie mit folgender Routine berechnen.
Function Feiertag(Datum As Long)
Dim J As Integer
Dim O As Date
J = Year(Datum)
O = Ostern(J)
Select Case Datum
Case Is = DateSerial(J, 1, 1)
Feiertag = "Neujahr"
'Case Is = DateSerial(J, 1, 6)
' Feiertag = "Dreikönig*"
Case Is = O - 2'DateAdd("D", -2, O)
Feiertag = "Karfreitag"
Case Is = O
Feiertag = "Ostersonntag"
Case Is = O + 1'DateAdd("D", 1, O)
Feiertag = "Ostermontag"
Case Is = DateSerial(J, 5, 1)
Feiertag = "Erster Mai"
Case Is = O + 39 'DateAdd("D", 39, O)
Feiertag = "Christi Himmelfahrt"
Case Is = O + 49 'DateAdd("D", 49, O)
Feiertag = "Pfingstsonntag"
Case Is = O + 50 'DateAdd("D", 50, O)
Feiertag = "Pfingstmontag"
'Case Is = DateAdd("D", 60, O)
' Feiertag = "Fronleichnam*"
'Case Is = DateSerial(J, 8, 15)
' Feiertag = "Maria Mimmelfahrt*"
Case Is = DateSerial(J, 10, 3)
Feiertag = "Deutsche Einheit"
'Case Is = DateSerial(J, 10, 31)
'Feiertag = "Reformationstag*"
'Case Is = DateSerial(J, 11, 1)
' Feiertag = "Allerheiligen*"
Case Is = DateSerial(J, 12, 24)
Feiertag = "Heilig Abend*"
Case Is = DateSerial(J, 12, 25)
Feiertag = "1.Weihnacht"
Case Is = DateSerial(J, 12, 26)
Feiertag = "2.Weihnacht"
Case Is = DateSerial(J, 12, 31)
Feiertag = "Silvester*"
Case Else
Feiertag = ""
End Select
End Function
Die Funktion Feiertag ruf die Funktion Ostern zur Ermittlung des
Ostersontags auf, deshalb müssen beide Funktionen in das Makro
eingebunden werden.
Writer
Calc
Impress
Draw
OOo-Basic
Macros