write ahead log

ロールフォワード用

VB.NETで次の指定曜日の日付を取得する

ちょいちょい使うのでメモ.

''' <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