'
09/19/2008
'
returns the starting & ending dates for the current week
' use in an Access
query like this:
' WHERE MyDate >= Get_StartOfWeek()
AND MyDate <= Get_EndOfWeek()
Function Get_StartOfWeek()
As Date
Dim d As Date
d = Date
Do While DatePart("w",
d, vbSunday) > 1
d = DateAdd("d",
-1, d)
Loop
Get_StartOfWeek = d
End Function
Function Get_EndOfWeek()
As Date
Dim d As Date
d = Date
Do While DatePart("w",
d, vbSunday) < 7
d = DateAdd("d",
1, d)
Loop
Get_EndOfWeek = d
End Function