星期数字显示改成汉字显示

Question

那位老师能帮忙！我这里的显示是正常的，主要是星期日显示0，能否把我的星期数字显示改成汉字显示如：星期一、星期二、星期三、星期四、星期五、星期六、星期日。
Private Sub Timer1_Timer()
Label2.Caption = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日  " & Time & "  星期" & Weekday(Now) - 1End Sub

Answer 1

Option ExplicitPrivate Sub Timer1_Timer()
    Dim strP As String
    Label2.Caption = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日 " & Time & " 星期"
    Select Case Weekday(Now) - 1
        Case 0
            strP = "日"
        Case 1
            strP = "一"
        Case 2
            strP = "二"
        Case 3
            strP = "三"
        Case 4
            strP = "四"
        Case 5
            strP = "五"
        Case 6
            strP = "六"
    End Select
    Label2.Caption = Label2.Caption & strP
End Sub

Answer 2

干嘛用timer?
找事啊？
加载一次不就行了？