VB设计关于提前15分钟提醒的计时器控件怎么做

[weixin_45352185]

VB中在汽车客运公司售票系统用计时器做一个发车前15分钟提醒怎么做，已经有一个专门的车次表businfo，其中的一个属性是发车时间

[milaoshu1020]

得到发车时间;
用timer控件+datediff;

[weixin_45352185]

引用 1 楼 milaoshu1020的回复:

得到发车时间;
用timer控件+datediff;

能不能说的详细一点呢？最好打一下代码，我才刚刚学，是个小白

[milaoshu1020]

写好了,代码如下:

Option Explicit

Private datStartTime As Date

Private Sub Form_Load()
    ' datStartTime = rs("Starttime")
    datStartTime = DateAdd("n", 16, Now) ' 实际使用要用上边注释中的语句,这条语句仅作测试;
    Timer1.Interval = 60000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    If DateDiff("n", Now, datStartTime) = 15 Then
        MsgBox "准备出发." & vbCrLf & _
            "当前时间:" & Now & vbCrLf & _
            "出发时间:" & datStartTime, vbInformation
    End If
End Sub

运行示例:

下载地址:
链接：https://pan.baidu.com/s/1GlF1EEVhgX19x9uU3h3pqg
提取码：mrx0