初心者です。次のプログラムにDateの値が表示できない。
どうしますか？教えてください。


Private Sub Timer1_Timer()

Dim A As Variant

Label1.Caption = Time

A = WeekDay(Date)

Select Case A

Case 1
A = "日曜日"

Case 2
A = "月曜日"

Case 3
A = "火曜日"

Case 4
A = "水曜日"

Case 5
A = "木曜日"

Case 6
A = "金曜日"

Case 7
A = "土曜日"

End Select

Label2.Caption = Date & A

End Sub

> A = WeekDay(Date)
>
> Select Case A
>
> Case 1
> A = "日曜日"
>
> Case 2
> A = "月曜日"
>
> Case 3
> A = "火曜日"
>
> Case 4
> A = "水曜日"
>
> Case 5
> A = "木曜日"
>
> Case 6
> A = "金曜日"
>
> Case 7
> A = "土曜日"
>
> End Select
>
> Label2.Caption = Date & A

質問とは関係ないですが、上記のコードは、以下の１行で出来たりします。

Label2.Caption = Format$(Now, "yyyy/mm/ddaaaa")