| |
不特定な祝日を求めるエクセル関数とマクロ関数。
検索曜日Noは、下記として。
日 月 火 水 木 金 土
１ ２ ３ ４ ５ ６ ７
基本（日にちだけです。）
=IF(検索曜日No>=WEEKDAY(DATE(年,月,1),1),検索曜日No-WEEKDAY(DATE(年,月,1),1)+((検索週-1)*7)+1,8-WEEKDAY(DATE(年,月,1),1)+((検索週-1)*7)+検索曜日No)
注）単純に足し算しているだけなので、存在しない２００３年８月の第６土曜日は、３６となってしまいますが、年、月、週、曜日が固定ならこれで十分だと思います。
１月の第２月曜日（成人の日）
=DATE(2003,1,IF(2>=WEEKDAY(DATE(2003,1,1),1),2-WEEKDAY(DATE(2003,1,1),1)+((2-1)*7)+1,8-WEEKDAY(DATE(2003,1,1),1)+((2-1)*7)+2))
７月の第３月曜日（海の日）
=DATE(2003,7,IF(2>=WEEKDAY(DATE(2003,7,1),1),2-WEEKDAY(DATE(2003,7,1),1)+((3-1)*7)+1,8-WEEKDAY(DATE(2003,7,1),1)+((3-1)*7)+2))
９月の第３月曜日（敬老の日）
=DATE(2003,9,IF(2>=WEEKDAY(DATE(2003,9,1),1),2-WEEKDAY(DATE(2003,9,1),1)+((3-1)*7)+1,8-WEEKDAY(DATE(2003,9,1),1)+((3-1)*7)+2))
１０月の第２月曜日（体育の日）
=DATE(2003,10,IF(2>=WEEKDAY(DATE(2003,10,1),1),2-WEEKDAY(DATE(2003,10,1),1)+((2-1)*7)+1,8-WEEKDAY(DATE(2003,10,1),1)+((2-1)*7)+2))
存在しないデータを記入し、存在しない日付を返したくない時にエラーを返したいなら。
基本
=DATEVALUE(年 & "/" & 月 & "/" & IF(検索曜日No>=WEEKDAY(DATE(年,月,1),1),検索曜日No-WEEKDAY(DATE(年,月,1),1)+((検索週-1)*7)+1,8-WEEKDAY(DATE(年,月,1),1)+((検索週-1)*7)+検索曜日No))
例 セルにデータを記入して、２００３年３月の第５、日曜日の年月日を求める。
Ａ Ｂ Ｃ Ｄ
1 年 検索月 検索週 検索曜日
2 2003 3 5 1
=DATEVALUE($A$2 & "/" & $B$2 & "/" & IF($D$2>=WEEKDAY(DATE($A$2,$B$2,1),1),$D$2-WEEKDAY(DATE($A$2,$B$2,1),1)+(($C$2-1)*7)+1,8-WEEKDAY(DATE($A$2,$B$2,1),1)+(($C$2-1)*7)+$D$2))
・マクロ版エクセル関数（日にちだけ返します。）
（単純に回してるだけです。）
Function SarCWeek関数(年, 月, 検索週, 曜日)
Dim DCnt As Long, DM As String, DD As String, FCFDM As String
Application.Volatile
FCFDM = Format(CDate(年 & "/" & 月 + 1 & "/" & 1) - 1, "d")
For i = 1 To FCFDM
bby = Format(CDate(年 & "/" & 月 & "/" & i), "aaa")
If Format(CDate(年 & "/" & 月 & "/" & i), "aaa") = 曜日 Then
DCnt = DCnt + 1
If 検索週 = DCnt Then
SarCWeek関数 = i
Exit Function
End If
End If
Next
SarCWeek関数 = CVErr(xlErrValue)
End Function
ＰＳ
春分、秋分の日は、堪忍してください。
地中の自転までの計算はちょっと．．．
独断と偏見で、取合えず目安箱に載せます。
|
|
Jaka
- 03/10/28(火) 11:29 -
![[未読]](./data/FAQ/image/read_icon.gif){kind=icon}
≪
