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

名前

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

本文 皆さんのコードを参考にさせて頂き、曜日指定型の関数作ってみました。 Private Sub Command1_Click() Dim intWeek As Integer Dim objDate As Date Dim strWork As String objDate = Me.Text1.Text '2005/09/1 intWeek = WeekDaysFirst(objDate, vbMonday) strWork = Format(DateSerial(Year(objDate), Month(objDate), intWeek), "aaaa") Debug.Print intWeek + 7 & "日が第2" & strWork Debug.Print intWeek + 14 & "日が第3" & strWork End Sub Private Function WeekDaysFirst(DateX As Date, WeekX As VbDayOfWeek) As Integer Dim intWeek As Integer If WeekX = vbUseSystemDayOfWeek Then WeekX = vbSunday intWeek = Weekday(DateSerial(Year(DateX), Month(DateX), 1)) WeekDaysFirst = ((7 + WeekX - intWeek) Mod 7) + 1 End Function