title image


Smiley Re: Aus einer WochenNr den Montag berechnen
Hallo,Steuerelementinhalt:=Format(ErsterTagDerWoche(Datum());"tttt")Public Function ErsterTagDerWoche(dat As Date)On Error GoTo fehlerDim Wt As String Wt = Format(dat, "w", vbMonday) Select Case Wt Case "1" ErsterTagDerWoche = dat Case "2" ErsterTagDerWoche = DateAdd("d", -1, dat) Case "3" ErsterTagDerWoche = DateAdd("d", -2, dat) Case "4" ErsterTagDerWoche = DateAdd("d", -3, dat) Case "5" ErsterTagDerWoche = DateAdd("d", -4, dat) Case "6" ErsterTagDerWoche = DateAdd("d", -5, dat) Case "7" ErsterTagDerWoche = DateAdd("d", -6, dat) End Selectende: Exit Functionfehler: Resume endeEnd Function

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: