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

名前

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

本文 文字列型を日付型に直すのはかなりの時間が掛かるのでDateSerialを用いて xxxx/xx/01を作ったほうが早いですね。 ちょこ㌧ さんのプログラムを改造すると↓見たいな感じ。 '呼び出し側の例えとして Test(2005,9) とする。 Private Sub Test(lngYear As Long, lngMonth As Long) Dim intWeek As Integer intWeek = Weekday(DateSerial(lngYear, lngMonth, 1)) If intWeek <= 2 Then intWeek = 10 - intWeek Else intWeek = 17 - intWeek End If Debug.Print intWeek & "日が第2月曜日" Debug.Print intWeek + 7 & "日が第3月曜日" End Sub