neat way to get last friday's date

Question

no matter what day I call the function on.

I know I could write a select case weekday(now) statement, was just wondering if there was a neater way to go?

Answer 1

Does this help get you started? I just gave it a quick test and seemed to work ok.

Private Sub LastFriday()

    Dim iWeekday As Integer, LastFridayDate As Date

    iWeekday = Weekday(Now(), vbFriday)

    LastFridayDate = Format(Now - (iWeekday - 1), "dd-mmm-yy")

End Sub

Answer 2

DateAdd("d", -1 - Weekday(Now), Now)