WEEK based monday

[sal21]

based this code:

Code: Select all

If Weekday(Now(), vbMonday) = 1 Then 
    MsgBox "Monday" 
Else 
    MsgBox Format$(Now, "dddd") 
End If 

if the weekday is a monday return in var INIZIO the first date of the one week back and in FINE the last date of week....how to?

for the day 13/02/2012 INIZIO=06/02/2012 FINE=12/02/2012

[HansV]

Dim d As Date
d = Date
FINE = d - Weekday(d, vbSunday)
INIZIO = FINE - 6