将DayOfWeek枚举转换为重复当天的字符串

Question

我想知道是否有办法直接将整数DayOfWeek返回转换为表示星期一,星期二等日期的字符串.

示例代码:

MessageBox.Show(Date.Today.DayOfWeek)

这将返回6(截至今天).有没有办法直接将其转换成Saturday例如？我真的不关心它真正转化为什么,但我想取消我的Select Case:

Select Case Date.Today.DayOfWeek
     Case 0
         day = "Sunday"
     Case 1
         day = "Monday"
     Case 2
         day = "Tuesday"
     Case 3
         day = "Wednesday"
     Case 4
         day = "Thursday"
     Case 5
         day = "Friday"
     Case 6
         day = "Saturday"
     Case Else
         day = "Apocalypse: we're all boned."
 End Select

谢谢 :)

Answer 1

DateTimeFormatInfo.CurrentInfo.GetDayName.

Answer 2

一种更简单的方法：

Dim day As String = Date.Today.DayOfWeek.ToString()