vb怎么显示系统时间+年月日星期？？？

Private Sub Timer1_Timer()
s = Array("日", "一", "二", "三", "四", "五", "六")
Label1.Caption = Now() & " 星期" & s(Weekday(Now) - 1)
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Now & " " & WeekdayName(Weekday(Date))
End Sub

我是本办法实现的
TempToDay = Format(Date, "ddd")
Select Case TempToDay
Case "Mon"
ToDay = "星期一"
Case "Tue"
ToDay = "星期二"
.
.
.
End Select

另外可以创建一个数组，放入星期一、二、三，然后再取出来

Format(Date, "dddd") 返回英文全程
Format(Date, "ddd") 返回3个字母英文缩写

语法

Weekday(date, [firstdayofweek])

Weekday 函数语法有下列的命名参数：

部分 描述
date 必要。能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 date 包含 Null，则返回 Null。
Firstday