Vb.net 获取给定开始日期的星期日和结束日期的星期六

我想将我的开始日期更改为开始日期的星期日，将结束日期的星期六更改为结束日期的星期六。假设我的开始日期是2014年4月23日，它将变为2013年4月20日，我的结束日期是2014年5月13日，它将成为2014年5月17日。我如何实现这一点是vb.net。简言之，我想要的是将我的

开始日期

转换为给定日期周的星期日，将

结束日期

转换为给定日期周的星期六。

这些是否适用于您的目的

Function GetPreviousSunday(fromDate As Date) As Date
    Return fromDate.AddDays(0 - fromDate.DayOfWeek)
End Function

Function GetNextSaturday(fromDate As Date) As Date
    Return fromDate.AddDays(6 - fromDate.DayOfWeek)
End Function

您甚至可以将其转换为一个功能：

Function GetRelativeWeekdayDate(fromDate As Date, relativeToWeekdayNum As Integer) As Date
    Return fromDate.AddDays(relativeToWeekdayNum - fromDate.DayOfWeek)
End Function

对于星期天，您可以这样调用它：

GetRelativeWeekdayDate（StartDate，0）

，对于星期六，您可以这样调用它：

GetRelativeWeekdayDate（EndDate，6）