引用:
作者: mini
Me.WindowState = 0
|
感謝大大，問題解決了，不知這種小問題是要靠經驗累積而成的還是有書
本有介紹？如果有可否介紹一下，謝謝。
另外不知道要如何突破五分鐘才偵測一次，因為我試了最多一分五秒＝65535
有找到相關解決方式，但我看不懂，可否請大大再次指教，謝謝。
Private Sub Timer_Timer
Dim NowSecond As Long
NowSecond = (Date - StartDate) * 86400 + Timer
If NowSecond - StartSecond >= 10800 Then
MsgBox "三小時到"
StartDate = Date
StartSecond = Timer
End If
End Sub