判斷行情超過多長時間沒有更新！ [金字塔]
- 咨詢內容：
使用股指最新行情的時間跟現在的時間比較，超過30秒就提醒。
Sub APP1 Set Report1=MarketData.GetReportData("IF00","ZJ") StockTime=Report1.Date TimeSpace=DateDiff("s",Cdate(Now),StockTime)
if abs(TimeSpace)>30 then Application.MsgOut "請注意，行情數據已經超過30秒沒有更新了！" Exit Sub end ifEnd Sub
- 金字塔客服：
Sub APP1
Set Report1=MarketData.GetReportData("IF00","ZJ")
StockTime=Report1.Date
TimeSpace=DateDiff("s",Cdate(Now),StockTime)
if abs(TimeSpace)>30 then Application.MsgOut "請注意，行情數據已經超過30秒沒有更新了！" Exit Sub end if End Sub - 用戶回復：
guotx2010斑主~~~這個,是VBA代碼么???可以用金字塔的一般公式代碼代替么?比如轉成金字塔的一般公式代碼該如何弄呢,請教一下斑主啊
- 網友回復：
如果還用pel語言，可以是使用time和currenttime來比較，time是行情k線位置的時間，currenttime是計算機當前時間，這兩個時間對比，可以達到類似的效果。
- 網友回復： guotx2010斑主~~~邏輯上是這樣沒錯啊,可是關鍵是,currenttime這個取本地計算機時間的函數,需要有行情數據進來時才會步進的!!!也就是說,如果沒有行情數據,currenttime是取得最后一筆數據的本地計算機時間,然后,就不會動了!!!所以,就沒得比較,也就不可能達到目的 [此貼子已經被作者于2013/7/12 14:09:14編輯過]
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯系技術人員 QQ: 1145508240 進行 有償 編寫！（不貴！點擊查看價格！）
相關文章
-
沒有相關內容
會員登錄/注冊