VB简单系统设计的一个小疑问

[weixin_45352185]

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

[脆皮大雪糕]

定时器，定一个你喜欢的时间，比如20秒 然后在timer事件里逐行进行判断当前时间和发车时间的差值。对于差值小于15分钟的进行提醒。

[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

[weixin_45352185]

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