Formula to change thurs/fri/mon/tues to previous wed

[phillipmai]

Hello,

I have a date field that I need to be able to do the following, if it is dated between thurs-tues then the date should be the previous Wednesday.

 

[RuralGuy]

Try this function in a Standard Module:

Public Function DateAdjust(InDate As Date) As Date

'-- If InDate is not Wednesday then adjust it back to the previous Wednesday.
   If Weekday(InDate, vbMonday) = 3 Then
      '-- InDate is a Wednesday, just return it.
      DateAdjust = InDate
   Else
      '-- Adjust the InDate to the previous Wednesday's Date
      DateAdjust = InDate - Weekday(InDate, vbThursday)
   End If

End Function

 

[phillipmai]

Thanks much appreciated!

 

[RuralGuy]

You're welcome. Glad we could help.