こんにちわ

先週の月曜日の求め方はどのようにすればよいでしょうか？
対象は日曜から〜土曜にのいずれかの日付をもとに、先週の月曜日が
何日だったのかが、知りたいです。
申し訳ありませんが、宜しくお願い致します。

> こんにちわ
>
> 先週の月曜日の求め方はどのようにすればよいでしょうか？
> 対象は日曜から〜土曜にのいずれかの日付をもとに、先週の月曜日が
> 何日だったのかが、知りたいです。
> 申し訳ありませんが、宜しくお願い致します。
先週の月曜日＝当日の6日前とそれ以前の日で、最初に出現する月曜日

> > こんにちわ
> >
> > 先週の月曜日の求め方はどのようにすればよいでしょうか？
> > 対象は日曜から〜土曜にのいずれかの日付をもとに、先週の月曜日が
> > 何日だったのかが、知りたいです。
> > 申し訳ありませんが、宜しくお願い致します。
> 先週の月曜日＝当日の6日前とそれ以前の日で、最初に出現する月曜日

コードで書くとこんな感じかと思います。
Date - 6 - (Weekday(Date - 6, vbMonday) - 1)

> こんにちわ
>
> 先週の月曜日の求め方はどのようにすればよいでしょうか？
> 対象は日曜から〜土曜にのいずれかの日付をもとに、先週の月曜日が
> 何日だったのかが、知りたいです。
> 申し訳ありませんが、宜しくお願い致します。

今日が何曜日か調べれば、先週の月曜日は何日前になるか分かります。

Dim LastMonday As Integer

Select Case Weekday(Date)
Case vbSunday
    LastMonday = Day(DateAdd("d", -6, Date))
Case vbMonday
    LastMonday = Day(DateAdd("d", -7, Date))
Case vbTuesday
    LastMonday = Day(DateAdd("d", -8, Date))
Case vbWednesday
    LastMonday = Day(DateAdd("d", -9, Date))
Case vbThursday
    LastMonday = Day(DateAdd("d", -10, Date))
Case vbFriday
    LastMonday = Day(DateAdd("d", -11, Date))
Case vbSaturday
    LastMonday = Day(DateAdd("d", -12, Date))
End Select

MsgBox LastMonday