如何在限定时间内不成交即撤单?、这个功能如何实现,求具体的代码?? [金字塔]
- 咨询内容:
fglongorderid=Getlongpendingorder("FG06","ZQ")fglongorderidtime=order.OrderInfoTime2(fglongorderid)上面两行,我已经取得了未成交单子的单号和委托的时间,假如说我要委托后十秒钟不能成交就撤单,我该怎么写?
- 金字塔客服:
Sub OrderCheDan() '获取未成交单,指定秒数后撤单
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 Cdate(time) & ",sAction:" & sAction & ",sKaiping:" & sKaiping & ",LmtPrice:" & LmtPrice & ",OrderID:" & OrderID
OrdTime=right(Order.OrderInfoTime2(i),8)
'application.MsgOut "OrdTime:"&OrdTime
if Datediff("s",OrdTime,Cdate(time))>10 then '大于10秒撤单
Call Order.CancelOrder( OrderID)
end if
Next
End Sub - 用户回复:
请教版主一下,如果是我要取得某一个品种的空头多仓或者空仓的未成交单子,请问这样子的写法对吗??Function Getshortpendingorder(Scode,Smarket) '获取未成交单Dim Orderid '订单IdDim Filled '提交手数Dim Remaining '剩余手数Dim Action '买卖Dim Ordertype '订单类型Dim Lmtprice '委托价Dim Account1 '账户Dim Kaiping '开平Getshortpendingorder=0Pendingcount=Order.Ordernum2For i=0 To Pendingcount-1 Call Order.Orderinfo2(i,Orderid,Consign,Filled,Remaining,Action,Ordertype,Lmtprice,Account1,Kaiping,Code,Market) If Code=Scode and action=1 and kaiping=0 Then GETshortPENDINGORDER=ORDERID End If if Code=Scode and action=0 and kaiping=2 then GETshortPENDINGORDER1=ORDERID end ifNextEnd Function
- 网友回复:
写错了,应该是取得空头的开仓单子或者平仓单子?
- 网友回复: 请问你给的代码当中的 OrdTime=right(Order.OrderInfoTime2(i),8)是什么意思呢?
有思路,想编写各种指标公式,程序化交易模型,选股公式,预警公式的朋友
可联系技术人员 QQ: 1145508240 进行 有偿 编写!(不贵!点击查看价格!)
相关文章
-
没有相关内容