title image


Smiley TIPP: Anzahl der Tage eines Monats ermitteln
Hättste halt gleich gefragt "wie ermittle ich die Zahl der Tage eines Monats?"!!!



Public Function TageImMonat(Jahr as Long, Monat as Long)

TageImMonat = Day(DateSerial(Jahr, Monat + 1, 0))

End Function



oder:



Public Function TageImMonat(D As Date)

TageImMonat = Day(DateSerial(Year(D), Month(D) + 1, 0))

End Function


Gruß aus dem Norden

Reinhard


Bitte immer die Access-Version angeben


 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: