title image


Smiley Schaltjahr
Such dir eins aus:



Public Function IstSchaltjahr(intJahr As Integer) As Boolean

IstSchaltjahr = intJahr > 1582 And (intJahr Mod 4 = 0 And intJahr Mod 100 0 Or intJahr Mod 400 = 0)

End Function



Public Function IstSchaltjahr1(intJahr As Integer) As Boolean

IstSchaltjahr1 = Format(DateSerial(intJahr, 2, 29), "mmdd") = "0229"

End Function



Public Function IstSchaltjahr2(intJahr As Integer) As Boolean

IstSchaltjahr2 = DateSerial(intJahr, 2, 29) = DateSerial(intJahr, 3, 0)

End Function



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: