ONE week back based today

[luca90]

Based the today date wath is the date of moonday and freeday of first one back week?

for example:

today is 27/03/2012

monnday 19/03/2012
fryday 23/03/2013

....

today is 12/03/2012

monnday 05/03/2012
fryday 09/03/2013

how to calculate this steep of dates?

[Hack]

Try

Private Sub Command1_Click()
MsgBox DateAdd("d", -7, Date)
End Sub

[luca90]

[QUOTE=Hack;532433]Try

Private Sub Command1_Click()
MsgBox DateAdd("d", -7, Date)
End Sub

[/QUOTE

But you code return a TUESDAY and not a MONDAY (day init of one back week)

in other case i ned to have also the FRIDAY date of one back week... how to?

[Hack]

Try these functions. Both will find the last Friday and last Monday based on the date passed to it

Option Explicit

Private Function FindLastMonday(ByVal pintDayOfWeek As VbDayOfWeek, ByVal pdteDateToCheckAgainst As Date) As Date
    Do
        pdteDateToCheckAgainst = DateAdd("d", -1, pdteDateToCheckAgainst)
    Loop Until Weekday(pdteDateToCheckAgainst) = pintDayOfWeek
    FindLastMonday = pdteDateToCheckAgainst

End Function

Private Function FindLastFriday(ByVal pintDayOfWeek As VbDayOfWeek, ByVal pdteDateToCheckAgainst As Date) As Date
    Do
        pdteDateToCheckAgainst = DateAdd("d", -1, pdteDateToCheckAgainst)
    Loop Until Weekday(pdteDateToCheckAgainst) = pintDayOfWeek
    FindLastFriday = pdteDateToCheckAgainst

End Function

Private Sub Command1_Click()
Text1.Text = FindLastFriday(vbFriday, Format(Now, "mm/dd/yyyy"))
Text2.Text = FindLastMonday(vbMonday, Format(Now, "mm/dd/yyyy"))
End Sub