Kategorien
CodeArchiv Datum VBA

VBA Feiertage als Text

Beschreibung

Mit dieser VB Funktion für MS Access, können Feiertage als Text zurückgegeben werden.

Parameter

Parameter NameParameter Wert
FeiertagZahl des Feiertages

Rückgabe

Rückgabe TypRückgabe Wert
StringName des Feiertages

Beispiel

debug.Print Feiertagename(ftChristiHimmelfahrt )
Christi Himmelfahrt

Code

Public Enum FEIERTAGE
	ftNeujahr = 1
	ftErscheinungsfest = 2
	ftKarfreitag = 3
	ftOstersonntag = 4
	ftOstermontag = 5
	ftMaifeiertag = 6
	ftChristiHimmelfahrt = 7
	ftPfingstmontag = 8
	ftFronleichnam = 9
	ftMariaeHimmelfahrt = 10
	ftTagDerEinheit = 11
	ftReformationstag = 12
	ftAllerheiligen = 13
	ftBussUndBettag = 14
	ftWeihnachtsfeiertag1 = 15
	ftWeihnachtsfeiertag2 = 16
End Enum

Public Function Feiertagename(ByVal Feiertag As FEIERTAGE) As String
	Select Case Feiertag
		Case ftNeujahr: Feiertagename = "Neujahr"
		Case ftErscheinungsfest: Feiertagename = "Heilige 3 Könige"
		Case ftKarfreitag: Feiertagename = "Karfreitag"
		Case ftOstersonntag: Feiertagename = "Ostersonntag"
		Case ftOstermontag: Feiertagename = "Ostermontag"
		Case ftMaifeiertag: Feiertagename = "1. Mai"
		Case ftChristiHimmelfahrt: Feiertagename = "Christi Himmelfahrt"
		Case ftPfingstmontag: Feiertagename = "Pfingstmontag"
		Case ftFronleichnam: Feiertagename = "Fronleichnam"
		Case ftMariaeHimmelfahrt: Feiertagename = "Maria Himmelfahrt"
		Case ftTagDerEinheit: Feiertagename = "Tag der deutschen Einheit"
		Case ftReformationstag: Feiertagename = "Refomrationstag"
		Case ftAllerheiligen: Feiertagename = "Allerheiligen"
		Case ftBussUndBettag: Feiertagename = "Buss und Bettag"
		Case ftWeihnachtsfeiertag1: Feiertagename = "1. Weihnachtsfeiertag"
		Case ftWeihnachtsfeiertag2: Feiertagename = "2. Weihnachtsfeiertag"
	End Select
End Function

Download