tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
第○□曜日の算出方法(VB6.0)_1 ( No.1 )  [親スレッドへ]
日時: 2011/04/05 11:25
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[日付・時刻][][]                                                    *
* キーワード:第二月曜日,カレンダ,祝日の求め方,祭日,,                             *
***********************************************************************************

投稿時間:2002/10/22(Tue) 15:35
投稿者名:あき☆彡
Eメール:
URL :
タイトル: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



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