急求一个VB代码 对时间设置的提醒

来源：百度知道 编辑：UC知道 时间：2024/06/04 10:26:17
要一个可以在工作日提醒该日为工作日要到公司上班，而在休息日则提醒为该日为休息日 可以休息。要求用VB语言编写 ，可以在VB软件上运行。

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

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

WD = Weekday(Date())

Select Case WD
Case 1 WD = "今天是 " & Date() & " 星期日，请注意休息！"
Case 2 WD = "今天是 " & Date() & " 星期一，为人民(币)服务！"
Case 3 WD = "今天是 " & Date() & " 星期二，为人民(币)服务！"
Case 4 WD = "今天是 " & Date() & " 星期三，为人民(币)服务！"
Case 5 WD = "今天是 " & Date() & " 星期四，为人民(币)服务！"
Case 6 WD = "今天是 " & Date() & " 星期五，为人民(币)服务！"
Case Else WD = "今天是 " & Date() & " 星期六，请注意休息！"
End Select

MsgBox(WD)

大概就是这样的，你根据自己的需要在改改