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

DatePart('dddd', now)

or

DatePart('dddd', #1/1/2010#) 

...with an explicit date.

Answer 2

Just subtract 7 days from the current date then get friday from that.

edit:

SET @CurDate = DATEADD(dd,-7,@CurDate);
if( DATEPART(dw,@CurDate)=6 )
BEGIN
END

Answer 3

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

Answer 4

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

Dim LastFridayDate As Date

iWeekday = Weekday(Now(), vbFriday)

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

End Sub