vb.net - 如何从工作日名称中获取天数

Question

长话短说：

我需要WeekdayName()的倒置函数，如下所示：

1. 您提供工作日名称（例如星期日）
2. 您获得相应的工作日编号（这取决于WeekdayName返回的第一个WeekdayName ，例如，如果星期日是一周的第一天，则星期日为 1）

背景：

我在 vb.net 中使用日期函数。 到现在为止还挺好。 我正在使用函数WeekdayName()来设置TabControl标签页的标题。 我的自定义控件（一种日历控件）包含提到的TabControl ，它可以选择您想要显示的一周中的哪一天。

如果您想显示所有天数， TabControl将通过迭代上述WeekdayName()函数（由系统日历本地化和管理并由我大写）来填充TabPage 。

如果你只设置星期二和星期五，你会有两个标签页，它们的标题是[Tuesday | Friday] [Tuesday | Friday] 。 如果您决定添加星期三，现在您应该有 3 个标签页： [Tuesday | Wednesday | Friday] [Tuesday | Wednesday | Friday] [Tuesday | Wednesday | Friday]等等...

为了保持选项卡排序，当我需要插入要显示的选项卡时，我想提供选项卡的标题以检查新插入的工作日名称，并以这种方式解决顺序。

我相信一种解决方法是创建一个带有选项卡标题字符串的假日期对象，以便有一个“星期日”日期，然后使用： Weekday()但我希望有一个 API 解决方案。

注意：这不是：如何从日期中获取天数。

---

编辑：

正如我们与@jmshapland 讨论的那样，使用默认本地化和系统设置的自定义代码方法可能是：

Function WeekdayNumber(day as String)
    ' The following initialization does not necessary go in this function.
    ' The idea is to have a mapping between key day name and index in the
    ' same order as the WeekdayName() method with the default system settings
    Dim weekdayNamesCollection as Collection = New Collection()
    For i = 1 to WEEKDAYS
        Dim wDay as String = WeekdayName(i)
        ' add the day with a key with the same name
        weekdayNamesCollection.add(wDay, wDay)
    Next i

    If weekdayNamesCollection.ContainsKey(day) Then
        Return weekdayNamesCollection.IndexOfKey(day) + 1
    End If

    ' Raise an error as the string 'day' is not in the collection
End Sub

我没有对此进行测试，因为我在没有任何框架和/或 IDE 的计算机中。 但基本上，这个想法是返回工作日名称存储在集合中的索引（以前，它在系统设置顺序中存储为WeekdayName() 。

Answer 1

我认为它没有内置功能。 但是，如果您使用 WeekdayName，那么您应该将其用于您的目的。

Public Function WeekDayNumber(ByVal weekName As String) As Integer

    Dim weekNames As New Dictionary(Of String, Integer)

    For i As Integer = 1 To 7
        weekNames.Add(WeekdayName(i), i)
    Next

    Return weekNames(weekName)
End Function

Answer 2

抱歉，如果格式不正确，我从不使用 VB，通常只使用 C#。 但是，这应该可以满足您的要求...如果您希望一周的第一天返回 0 而不是 1，只需从 return 语句中删除 + 1 即可。

Private Function FindDayOfWeek(day As String) As Integer
    Dim daysOfWeek = CultureInfo.CurrentCulture.DateTimeFormat.DayNames

    Dim counter As Integer = Array.IndexOf(daysOfWeek, WeekdayName(1))
    Dim numericDay As Integer

    For i As Integer = 0 To 6
        If counter > 6 Then
            counter = 0
        End If

        If daysOfWeek(counter) = day Then
            numericDay = i
            Exit For
        End If
        counter += 1
    Next

    Return numericDay + 1
End Function

Answer 3

通过使用val()函数，将给出从 0 到 6 的星期几：

intDayofWeek = val(System.DateTime.Now.DayOfWeek)