是否有一个特定的函数可以返回给定日期是否是当前月份的最后一周

Question

有很多方法可以确定给定日期的星期数或星期几。我想在我的应用程序中创建一个例程，在该月的最后一个星期五（可能等于也可能不等于本月最后一个完整周的这个星期五）执行一些例行的家务工作。

我想到了一些类似这些行的伪代码；

If AreWeOnTheFridayOfLastFullWeekOfTheMonth Then
    <carry out housekeeping here>
End if


Private Function AreWeOnTheFridayOfLastFullWeekOfTheMonth

        Dim dte As Date = Today

       If dte.DayOfWeek.ToString = "Friday" Then
        If <dte is in the last full week of the current month > then
            Return True
        Else
            Return False
        End

End Sub

有谁知道在各种 dot net 程序集中是否有这样的功能（我还没有在本月的第一周或最后一周的各种 google 或 bing 搜索中遇到过这种功能）或某种方式来确定它。

虽然我使用的是 vb，但答案是否在 c# 中并不重要，但明显的附带条件是它使用两种语言共有的函数和方法。

编辑

我看到了this 的问题。我想知道是否有一种更简单的方法可以简单地确定我们是否在本月的最后一周。

谢谢

编辑 2：

只是想我会添加 Jeppe Stig Nielsen 给出的上述两个简洁示例的 vb 翻译请注意，我已将 Today 替换为每种情况下的日期参数，这意味着您可以调用该函数并根据任何内容获得布尔返回是你叫它的日子。

Public Function TodayIsTheLastFridayOfTheLastFullWeekOfTheMonth() As Boolean
    Dim daysLeftInMonth  As Integer = DateTime.DaysInMonth(Today.Year, Today.Month) - Today.Day
    Return Today.DayOfWeek = DayOfWeek.Friday AndAlso 8 > daysLeftInMonth AndAlso daysLeftInMonth >= 1
End Function

Public Function IsTodayWithinTheLastFullWeek() As Boolean
    Dim dayOfWeekAsInt As Integer = CInt(Today.DayOfWeek) ' take more care here if 'first' day-of-week is not defined as Sunday
    Dim dateOfBeginningOfWeek As Date = Today.AddDays(-dayOfWeekAsInt)
    Dim daysLeftInMonth As Integer = DateTime.DaysInMonth(dateOfBeginningOfWeek.Year, dateOfBeginningOfWeek.Month) - dateOfBeginningOfWeek.Day
    Return 13 > daysLeftInMonth AndAlso daysLeftInMonth >= 6
End Function

EDIT3

以及 Jeppe 对本月第一周的最终评论；

Public Function IsTodayWithinTheFirstFullWeek() As Boolean
        Dim dayOfWeekAsInt As Integer = CInt(Today.DayOfWeek)
        Dim dateOfBeginningOfWeek As Date = Today.AddDays(-dayOfWeekAsInt)
        Return dateOfBeginningOfWeek.Day <= 7
    End Function

Answer 1

要获得一个月中的最后一个星期五，您可以使用：

Public Function GetLastFridayInMonth(ByVal aDate As Date) As Date
    Dim firstDayOfNextMonth = (New Date(aDate.Year, aDate.Month, 1)).AddMonths(1)
    Dim delta As Integer = ((CInt(firstDayOfNextMonth.DayOfWeek) + 1) Mod 7) + 1
    Return firstDayOfNextMonth.AddDays(-delta)
End Function

如果您希望该月的最后一个星期五是一个完整的一周，那么您需要定义完整的一周的含义，因为有不同的解释。是一周中的所有日子都在一个月内（哪一天是一周的开始/结束）还是那一周的 4/7 天？

Answer 2

在 C# 中：

static bool IsLastFriday()
{
  var date = DateTime.Today; // can be made a parameter

  return date.DayOfWeek == DayOfWeek.Friday && date.Day + 7 > DateTime.DaysInMonth(date.Year, date.Month);
}

---

我应该更仔细地阅读您的问题。这是 C# 中的一个解决方案：

static bool IsFridayOfLastFullWeek()
{
  var date = DateTime.Today; // can be made a parameter

  var daysLeftInMonth = DateTime.DaysInMonth(date.Year, date.Month) - date.Day;

  return date.DayOfWeek == DayOfWeek.Friday
    && 8 > daysLeftInMonth && daysLeftInMonth >= 1;
}

界限 8 和 1 假设您的“整周”从周日到周六。它们可以更改为例如如果您的周概念不同，则分别为 9 和 2。

---

如果这不仅适用于星期五（我看到您对另一个答案的评论），请继续：

static bool IsWithingLastFullWeek()
{
  var date = DateTime.Today; // can be made a parameter

  var dayOfWeekAsInt = (int)(date.DayOfWeek); // take more care here if 'first' day-of-week is not defined as Sunday
  var dateOfBeginningOfWeek = date.AddDays(-dayOfWeekAsInt);
  var daysLeftInMonth = DateTime.DaysInMonth(dateOfBeginningOfWeek.Year, dateOfBeginningOfWeek.Month)
    - dateOfBeginningOfWeek.Day;
  return 13 > daysLeftInMonth && daysLeftInMonth >= 6;
}