VB中在汽車客運公司售票系統用計時器做一個發車前15分鐘提醒怎么做，已經有一個專門的車次表businfo，其中的一個屬性是發車時間
uj5u.com熱心網友回復：
得到發車時間;用timer控制元件+datediff;
uj5u.com熱心網友回復：
能不能說的詳細一點呢？最好打一下代碼，我才剛剛學，是個小白
uj5u.com熱心網友回復：
寫好了,代碼如下:
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/28625.html
標籤：VB基礎類
上一篇：求助 MATLAB程式
下一篇：VB簡單系統設計的一個小疑問