title image


Smiley Re: A97: 1. Montag eines Monats berechnen
Das geht so:



Public Function ErsterMontagImMonat(Monat As Integer, Optional Jahr As Integer = 0)

Dim D As Date

If Jahr = 0 Then Jahr = Year(Date)

D = DateSerial(Jahr, Monat, 1)

ErsterMontagImMonat = DateAdd("d", (9 - WeekDay(D)) Mod 7, D)

End Function


Gruß aus dem Norden

Reinhard


Bitte immer die Access-Version angeben


 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: