title image


Smiley So ähnlich wie diese Routine
Hallo Manfred,vom Ostersonntag ausgehend kann man die anderen Feiertage berechnen.Function Ostersonntag(Jahreszahl)   Dim R1 As Integer   Dim R2 As Integer   Dim R3 As Integer   Dim R4 As Integer   Dim R5 As Integer   Dim Ostern As Date   R1 = Jahreszahl Mod 19   R2 = Jahreszahl Mod 4   R3 = Jahreszahl Mod 7   R4 = (19 * R1 + 24) Mod 30   R5 = (6 * R4 + 4 * R3 + 2 * R2 + 5) Mod 7   Ostern = DateSerial(Jahreszahl, 3, 22)   Ostern = Ostern + R4 + R5   Select Case Ostern      Case DateSerial(Jahreszahl, 4, 26)         Ostern = DateSerial(Jahreszahl, 4, 19)      Case DateSerial(Jahreszahl, 4, 25) And R1 > 10      Ostern = DateSerial(Jahreszahl, 4, 18)   End Select   Ostersonntag = OsternEnd FunctionAschermittwoch = Ostersonntag - 46Himmelfahrt = Ostersonntag - 39Karfreitag = Ostersonntag - 2Ostermontag = Ostersonntag +1 ( ach ? )Pfingstsonntag = Ostersonntag + 39Pfingstmontag = Ostersonntag + 40Fronleichnam = Ostersonntag + 60

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: