7,759
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private 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