ある月の第３月曜日は何日か？をできるだけ早く求めるには？ (ID:125801)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 月初日の曜日を求めて、そこからゴリゴリやってみると・・・ Dim str1stDay as String Dim datToday as Date Dim intWeek as Integer Dim 2ndMonday as integer Dim 3rdMonday as integer str1stDay = "2005/09/01" '←これは決め打ちではなくきちんと取得するほうが良いですね datToday = DateValue(str1stDay) intWeek = Weekday(datToday) Select Case intWeek Case 1 '日曜日 '第2月曜 2ndMonday = intweek + 8 '第3月曜 3rdMonday = intweek + 15 Case 2 '月曜日 '第2月曜 2ndMonday = intweek + 7 '第3月曜 3rdMonday = intweek + 14 Case 3 '火曜日 '第2月曜 2ndMonday = intweek + 13 '第3月曜 3rdMonday = intweek + 20 Case 4 '水曜日 '第2月曜 2ndMonday = intweek + 12 '第3月曜 3rdMonday = intweek + 19 Case 5 '木曜日 '第2月曜 2ndMonday = intweek + 11 '第3月曜 3rdMonday = intweek + 18 Case 6 '金曜日 '第2月曜 2ndMonday = intweek + 10 '第3月曜 3rdMonday = intweek + 17 Case 7 '土曜日 '第2月曜 2ndMonday = intweek + 9 '第3月曜 3rdMonday = intweek + 16 End Select こんな感じかなぁ？（全然スマートじゃないなぁ・・・）