Are your quarters variable or 31 Mar, 30 Jun, 30 Sep and 31 Dec? This code is for the normal quarters. Also not too sure what you meant so here I am seeing if the quarter FINISHED more or less than 8 weeks ago.
Sub 8Week_Gap()
QuartDate = Calc_Quart
If DateAdd("ww",-8,Date()) < QuartDate then
MsgBox "Quarter ended less than eight weeks ago"
Else
MsgBox "Quarter ended more than eigth weeks ago"
End If
End Sub
Function Calc_Quart()
tmpDate = DateAdd("m", -3, Date)
Calc_Quart = DateAdd("d", -1, DateAdd("m", 3, DateValue("01/" & (Int((Month(tmpDate) - 1) / 3) * 3) + 1 & "/" & Year(tmpDate))))
End Function
Haven't bothered to see if the calculation can be shorter as have amended the code from something where I get the beginning of the quarter.
HTH