交易時間撤單模塊 [金字塔]
- 咨詢內容：
function CancelAllOrder(sAccount) '撤銷所有委托
Document.DebugFile "C:\OrderLog.Txt","撤單模塊啟動"& sAccount,1
dim Orderid '訂單ID
dim Filled '提交手數
dim Remaining '剩余手數
dim Action '買賣
dim OrderType '訂單類型
dim LmtPrice '委托價
dim Account '賬戶
dim Kaiping '開平
dim code
dim t1
t1=TimeValue(Now())
PendingCount=Order.OrderNum2
For i=0 to PendingCount-1
Call Order.OrderInfo2(i,OrderID,ConSign,Filled,Remaining,Action,OrderType,LmtPrice,Account,Kaiping,Code,Market)
'application.MsgOut sAccount & " ---"&OrderID &"---!!"&Code &"===="&Market
Document.DebugFile "C:\OrderLog.Txt",sAccount & " ---"&OrderID &"---!!"&Code &"===="&Market,1
if Account=sAccount then
if Market = "ZJ" and ((t1>TimeValue("09:10") and t1<TimeValue("11:30")) or (t1>TimeValue("13:00") and t1<TimeValue("15:15"))) then
call order.CancelOrder(OrderID)
Document.DebugFile "C:\OrderLog.Txt","中金盤中撤單"&Market,1
end if
if (Market ="SQ" or Market="DQ" or Market="ZQ") and ( (t1>TimeValue("09:00") and t1<TimeValue("10:15")) or (t1>TimeValue("10:30") and t1<TimeValue("11:30")) or (t1>TimeValue("13:30") and t1<TimeValue("15:00") ) ) then
call order.CancelOrder(OrderID)
Document.DebugFile "C:\OrderLog.Txt","三所盤中撤單"&Market,1
end if
if Market = "ZJ" and (t1>TimeValue("09:10") and t1<TimeValue("11:30")) or (t1>TimeValue("13:00") and t1<TimeValue("15:15")) then
application.MsgOut "!!!!!!!!!!!!!!!!!!!!"
'Document.DebugFile "C:\OrderLog.Txt","!!!!!!!!!!!!!!!!!!!!",1
end if
end if
Next
End function - 金字塔客服： 如果不是交易時間 三所和中金沖突 如果賬戶內有中金和3所單子 在小節休息時會有所影響 希望這帖子幫到大家
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯系技術人員 QQ: 1145508240 進行 有償 編寫！（不貴！點擊查看價格！）
相關文章
-
沒有相關內容
會員登錄/注冊