如何设计时间提示信息对话框？

程序运行时，定义一个全局变量。类型是 date 类型
记录 当前日期+当前时间

弄一个定时器。
每秒触发一下。
生成当前日期+当前时间的数据。
然后这二个时间之间做减法。
如果在差值 在 1/12 时，提示，然后保存当前提示的时间。

这是二个小时的差值。
#2012/12/19 10:58:00#-#2012/12/19 8:58:00# =  8.33333333284827E-02
你需要四舍五入到某一位，然后再进行比较。
因为这个时间会不是很精确，会有秒数的误差。

Option Explicit

Dim starttime As Date

Private Sub Form_Load()
starttime = Date & " " & Time

End Sub

Private Sub Timer1_Timer()

Dim m As Date

m = Date & " " & Time
Label1.Caption = m

If Round(m - starttime, 6) >= 0.083333 Then
    MsgBox "时间到"
    starttime = m
End If

End Sub