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

名前

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

本文 Dim intWeek As Integer Dim objDate As Date objDate = "2005/09/01" intWeek = Weekday(objDate) If intWeek <= 2 Then intWeek = 10 - intWeek Else intWeek = 17 - intWeek End If Debug.Print intWeek & "日が第2月曜日" Debug.Print intWeek + 7 & "日が第3月曜日"