VB问题窗体上有3个按钮,单击“
是不是这个意思?
Private Sub Command1_Click()
ShowDate (Now)
End Sub
Function ShowDate(d As Date)
Me。 List1。Clear
Me。List1。AddItem Year(d) & "年" & Month(d) & "月" & Day(d) & "日"
Select Case Weekday(d)
Case 1
Me。 List1。AddItem "星期日"
Me。List1。AddItem "休息日"
Case 2
Me。List1。AddItem "星期一"
Me。 List1。AddItem "...全部
是不是这个意思?
Private Sub Command1_Click()
ShowDate (Now)
End Sub
Function ShowDate(d As Date)
Me。
List1。Clear
Me。List1。AddItem Year(d) & "年" & Month(d) & "月" & Day(d) & "日"
Select Case Weekday(d)
Case 1
Me。
List1。AddItem "星期日"
Me。List1。AddItem "休息日"
Case 2
Me。List1。AddItem "星期一"
Me。
List1。AddItem "工作日"
Case 3
Me。List1。AddItem "星期二"
Me。List1。AddItem "工作日"
Case 4
Me。
List1。AddItem "星期三"
Me。List1。AddItem "工作日"
Case 5
Me。List1。AddItem "星期四"
Me。
List1。AddItem "工作日"
Case 6
Me。List1。AddItem "星期五"
Me。List1。AddItem "工作日"
Case 7
Me。
List1。AddItem "星期六"
Me。List1。
AddItem "休息日"
End Select
End Function
Private Sub Command2_Click()
ShowDate (Now - 1)
End Sub
Private Sub Command3_Click()
Dim temp As Date
temp = DateSerial(Year(Now), Month(Now) - 1, Day(Now))
ShowDate temp
End Sub。收起