用VBA实现吧，在计时器触发事件中加入：

Private Sub FORM_Timer()
Dim DeadlineDate As Date
DeadlineDate = #6/26/2003#
If Date >= DeadlineDate Then
　　Beep '加入提示信息
MsgBox "到期了！！", vbOKOnly, "提示信息"
End If
End Sub