ちょいちょい使うのでメモ.
''' <summary> ''' 指定日の次の指定曜日の日付を返す ''' </summary> ''' <param name="d">次の曜日を調べる起算日</param> ''' <param name="day">日付を得たい次の曜日</param> ''' <returns>d日から始めて次のday曜日の日付</returns> Private Function getNextDayOfWeek(ByVal d As Date, ByVal day As System.DayOfWeek) As Date '定数DayOfWeekは0起算の連続した数値なので当週の曜日指定日付は 'd.AddDays(day - d.DayOfWeek)で導出可能 '直近のday曜日を導出してその1週間後 Return d.AddDays(day - d.DayOfWeek).AddDays(7) End Function