VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

第○□曜日の算出方法(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