 第○□曜日の算出方法(VB6.0)_1 (No.1の個別表示) [スレッド一覧へ] |
- 日時： 2011/04/05 11:25
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[日付・時刻][][] *
* キーワード：第二月曜日,カレンダ,祝日の求め方,祭日,, *
***********************************************************************************
投稿時間：2002/10/22(Tue) 15:35
投稿者名：あき☆彡
Ｅメール：
ＵＲＬ ：
タイトル：Re: 第○曜日の算出方法について教えて下さい
-----------------------------------------------------------------------------------
こんな感じとか・・・
（ちょっと確認しただけなので、おかしい所あるかも）
'2002年10月第2月曜日取得
MsgBox GetWeekDay(2002, 10, vbMonday, 2)
'2002年10月第3土曜日取得
MsgBox GetWeekDay(2002, 10, vbSaturday, 3)
'(i)lYear - 年
'(i)lMonth - 月
'(i)iWeek - 曜日(vbSunday:日曜,vbMonday:月曜,vbTuesday:火曜,vbWednesday:水曜,
' vbThursday:木曜,vbFriday:金曜,vbSaturday:土曜)
'(i)lNumber - 週目
Private Function GetWeekDay(ByVal lYear As Long, ByVal lMonth As Long, _
ByVal iWeek As Integer, ByVal lNumber As Long) As Date
Dim lDay As Long
lDay = iWeek - WeekDay(DateSerial(lYear, lMonth, 1))
Select Case lDay
Case Is < 0: lDay = lDay + 7 * lNumber
Case Is >= 0: lDay = lDay + 7 * (lNumber - 1)
End Select
GetWeekDay = DateSerial(lYear, lMonth, 1 + lDay)
End Function
 |
| 第○□曜日の算出方法(VB6.0)_2 (No.2の個別表示) [スレッド一覧へ] |
- 日時： 2011/04/05 11:26
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[日付・時刻][][] *
* キーワード：第二月曜日,カレンダ,祝日の求め方,祭日,, *
***********************************************************************************
下記の掲示板に投稿した分ですが、実際に使用する場合は下記のようにした方が簡単かな。
http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200509/05090152.txt
Debug.Print ((9 - Weekday("2005/09")) Mod 7) + 1 '第一月曜日
Debug.Print ((9 - Weekday("2005/09")) Mod 7) + 8 '第二月曜日
Debug.Print ((9 - Weekday("2005/09")) Mod 7) + 15 '第三月曜日
--------------------------------------------------------------------------------
VB.NET 用は下記に掲載しております。
http://hanatyan.sakura.ne.jp/dotnet/day02.htm#no9
|
| 先週の月曜日の求め方(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
|
|
