vb程序请教-急求一个VB代码 对时间设置的提醒?

Question

要一个可以在工作日提醒该日为工作日要到公司上班，而在休息日则提醒为该日为休息日 可以休息。要求用VB语言编写 ，可以在VB软件上运行。

Answer 1

代码复制，单击窗体即可运行

Private Sub Form_Click()
w = Weekday(Date)
Select Case w
Case 1, 7
MsgBox "今天是星期 " & w & " ,可以休息！"
Case Else
MsgBox "今天是星期 " & w & " ,要上班哦！"
End Select
End Sub

Answer 2

只要1行代码就可以了..

Private Sub Form_Load()
MsgBox Choose(Weekday(Now), "休息日", "工作日", "工作日", "工作日", "工作日", "工作日", "休息日")
End Sub