投稿日 | : 2003/04/01(Tue) 16:45 |
投稿者 | : zkei |
Eメール | : |
URL | : |
タイトル | : よろしく |
初心者です。次のプログラムに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