VB取日期属于星期几

        有时会比较常用了，很简单但我记不住。
调用： "星期" & ToCN(Weekday(date, vbMonday))
Function ToCN(i As Integer) As String
  Select Case i
    Case 1
      ToCN = "一"
    Case 2
      ToCN = "二"
    Case 3
      ToCN = "三"
    Case 4
      ToCN = "四"
    Case 5
      ToCN = "五"
    Case 6
      ToCN = "六"
    Case 7
      ToCN = "天"
  End Select
End Function