求VBA代码设计窗体判断日期，若输入的日期为周一至周五，则弹出对话框“工作日辛苦辛苦”，若输入的日期为周六日，则弹出对话框“周末了，放松放松。”

Question

求VBA代码
设计窗体判断日期，若输入的日期为周一至周五，则弹出对话框“工作日 辛苦辛苦”，若输入的日期为周六日，则弹出对话框“周末了，放松放松。”

Answer 1

Private Sub CommandButton1_Click()
Dim a, s1$, s2$
s1 = "工作日，辛苦辛苦~~"
s2 = "周末了，放松放松~~"
a = Application.InputBox("请输入日期：", "输入日期", Format(Date, "yyyy-mm-dd"), Type:=2)
If Not IsDate(a) Then MsgBox "输入的不是一个日期值！", vbCritical: Exit Sub
Select Case Weekday(a, vbMonday)
Case 1, 2, 3, 4, 5
MsgBox s1
Case 6, 7
MsgBox s2
End Select
End Sub