定時器整點運行 [金字塔]
- 咨詢內容：
vba里的定時器Sub Application_Timer(Id)，然后在
Call Application.Settimer(0,300000)
就是每隔5分鐘執(zhí)行一次，但是，我想讓他整點運行，就是開盤以后9:05,9:10,9:15，在這樣的整點每隔5分鐘運行一次，這樣運行，應該怎么操作呢？；
- 金字塔客服：
在定時器中判斷當前計算機時間是不是到了你那個幾個時間節(jié)點不就行了？
- 用戶回復：
一天5分鐘有45個節(jié)點。。。，用算法計算？
- 網友回復：
Sub APPLICATION_VBAStart()
Call Application.Settimer(0,1000)
End Sub
Sub APPLICATION_Timer(ID)
if Hour(now) >= 9 And Hour(now) <= 15 And Minute(Now) > 1 And Second(Now) < 1 Then
DifMin = Minute(Now) Mod 5
IF DifMin = 0 Then
'這里執(zhí)行你的操作
End If
End if
End Sub這里的Settimer(0,1000)目的是1秒執(zhí)行一次檢測，目的是保證正好能在剛過執(zhí)行點時能檢測到，如果你的模型只需要間隔5分鐘而不需要那么精確卡在時間點，將這里改成60秒即可，另外去掉And Second(Now) < 1這句即可
- 網友回復： 謝謝！沒想到順便把算法也給我了！實在太給力了！太謝謝了；
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯(lián)系技術人員 QQ: 1145508240 進行 有償 編寫！（不貴！點擊查看價格！）
相關文章
-
沒有相關內容
會員登錄/注冊