'月の第1X曜日を取得する関数

'使用例
'1998/3/20 の月の第1月曜日を取得します。
'iWeekdayには1（日曜）から7（土曜）の曜日を示す数を指定します。

'        A      B         C
' 1  1998/3/20  2  =WeekDay1st(A1,B1)

'この関数は以下の数式と同じ機能です。
'=A1-DAY(A1)+1+MOD(B1-WEEKDAY(A1-DAY(A1)+1),7)

Option Explicit

Function WeekDay1st(dtDate As Date, iWeekDay As Integer) As Date
    Dim dt1stDay As Date
    Dim iAdd As Long
    dt1stDay = dtDate - Day(dtDate) + 1
    iAdd = iWeekDay - WeekDay(dt1stDay)
    WeekDay1st = dt1stDay + iAdd - (7 * Int(iAdd / 7))
End Function