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!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: