title image


Smiley Ostereinzeiler...
ein kleines vorgezogenes Ostergeschenk von mir:



Public Function OsterSonntagEinzeiler(ByVal Jahr As Long) As Date

OsterSonntagEinzeiler = CDate((Fix(Format(CDbl(DateSerial(Jahr, 4, Day((CDbl(Minute(Jahr / 38)) / 2) + 1516)) / 7), "0")) * 7) - 6)

End Function





Allerdings hat diese Formel wie die Excel-Formel den Nachteil, dass sie



- Daten vor 1900 nicht berechnen kann

- Im Jahr 2079 fälschlicherweise den 16.04.2079 und nicht den 23.04.2079 errechnet!





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: