title image


Smiley Wobei du ...
da einen Dreher drinhast:



... DatAdd("t";-4;Datum())



... ist besser.



Ich würde so etwas in eine separate Funktion auslagern:



Public Function Minus2Tage(D)

If IsDate(D) Then

Select Case WeekDay(D)

Case vbMonday: Minus2Tage = DateAdd("d", -3, D)

Case vbTuesday: Minus2Tage = DateAdd("d", -4, D)

Case Else: Minus2Tage = DateAdd("d", -2, D)

End Select

Else

Minus2Tage = Null

End If

End Function



' oder auch:

Public Function Minus2Tage(D)

If IsDate(D) Then

Minus2Tage = DateAdd("d", Choose(WeekDay(D), -2, -3, -4, -2, -2, -2, -2, -2), D)

Else

Minus2Tage = Null

End If

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: