用VBA实现吧,在计时器触发事件中加入:
Private Sub FORM_Timer() Dim DeadlineDate As Date DeadlineDate = #6/26/2003# If Date >= DeadlineDate Then Beep '加入提示信息 MsgBox "到期了!!", vbOKOnly, "提示信息" End If End Sub