投稿日 | : 2006/08/22(Tue) 17:40 |
投稿者 | : LESIA |
Eメール | : |
URL | : |
タイトル | : Re: 先週の月曜日の求め方 |
> こんにちわ
>
> 先週の月曜日の求め方はどのようにすればよいでしょうか?
> 対象は日曜から〜土曜にのいずれかの日付をもとに、先週の月曜日が
> 何日だったのかが、知りたいです。
> 申し訳ありませんが、宜しくお願い致します。
今日が何曜日か調べれば、先週の月曜日は何日前になるか分かります。
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