サンプル投稿用掲示板　　VB2005 〜 用トップページ　　VB6.0 用 トップページ 先週の月曜日の求め方(VB6.0)_3 ( No.3 ) 　[親スレッドへ] 日時： 2009/12/28 10:44 名前： 花ちゃん *********************************************************************************** * カテゴリー：[日付・時刻][][]                                                    * * キーワード：先週の月曜日の取得,月曜日は何日,,,,                                 * *********************************************************************************** 元質問：先週の月曜日の求め方 - めめこおー 2006/08/22-10:21 No.7051 先週の月曜日の求め方はどのようにすればよいでしょうか？ 対象は日曜から〜土曜にのいずれかの日付をもとに、先週の月曜日が何日だったのかが、知りたいです。 ----------------------------------------------------------------------------------- Re: 先週の月曜日の求め方 - LESIA 　2006/08/22-17:40 No.7056 ----------------------------------------------------------------------------------- 今日が何曜日か調べれば、先週の月曜日は何日前になるか分かります。 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

　[スレッド一覧へ]　[親スレッドへ]