引用:
作者: mini
可以說算是 經驗吧
以 google為主 MSDN Library Visual Studio為輔
一天有多少秒
60*60*24=86400
Timer 函數
傳回一 Single，其內容為從前一個午夜算起到現在所經過的秒數
如果 StartDate是今年的一月一號
所以 (Date- StartDate) * 86400 + Timer
就可以算出現在是今年的第幾秒
|
感謝大大，我將10800改為120，我想二分鐘偵測一次，但測試過了
二分鐘後連動都沒動，不知問題出在那，程式碼如下：
Private Sub Timer1_Timer()
Dim NowSecond As Long
NowSecond = (Date - StartDate) * 86400 + Timer
If NowSecond - StartSecond >= 120 Then
End If
StartDate = Date
StartSecond = Timer
Call Command1_Click
Me.WindowState = 0
End Sub
謝謝。