投稿日 | : 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