title image


Smiley Feiertage...
Von Ostern abhängige Feiertage:



Rosenmontag = DateAdd("d",-48,Ostersonntag)

Aschermittwoch = DateAdd("d",-46,Ostersonntag)

Gründonnerstag = DateAdd("d",-45,Ostersonntag)

Karfreitag = DateAdd("d",-2,Ostersonntag)

Ostermontag = DateAdd("d",1,Ostersonntag)

ChristiHimmelfahrt = DateAdd("d",39,Ostersonntag)

Pfingstsonntag = DateAdd("d",49,Ostersonntag)

Pfingstmontag = DateAdd("d",50,Ostersonntag)

Fronleichnam = DateAdd("d",60,Ostersonntag)





Hier noch mal der Osterlink



Andere Feiertage:



Neujahr = Dateserial(Jahr, 1,1)

Heilige3Koenige = Dateserial(Jahr, 1,6)

FriedensFest = DateSerial(Jahr,8,1) ' nur in Augsburg

MariäHimmelfahrt = Dateserial(Jahr,8,15)

If Jahr <= 1990 then TagDerDeutschenEinheitAlt = Dateserial(Jahr,6,17)

If Jahr >= 1990 then TagDerDeutschenEinheitNeu = Dateserial(Jahr,10,3)

Reformationsfest = Dateserial(Jahr,10,31)

Allerheiligen = Dateserial(Jahr,11,1)

HeiligAbend = Dateserial(Jahr,12,24)

Weihnachten = Dateserial(Jahr,12,25)

Weihnachten2 = Dateserial(Jahr,12,26)

Silvester = Dateserial(Jahr,12,31)





Nur der Buss- und Bettag macht etwas Schwierigkeiten:



Public Function BussUndBettag(Jahr As Long) As Date

Dim T As Long, D As Date

For T = 16 To 22

D = DateSerial(Jahr, 11, T)

If WeekDay(D) = vbWednesday Then

BussUndBettag = D

Exit Function

End If

Next T

End Function



Siehe auch hier: Kalenderlexikon


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: