高级功能研发区-如何在限定时间内不成交即撤单？、这个功能如何实现，求具体的代码？？金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  如何在限定时间内不成交即撤单？、这个功能如何实现，求具体的代码？？  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=72214)

--  作者：啊东西
--  发布时间：2014/11/20 19:15:32
--  如何在限定时间内不成交即撤单？、这个功能如何实现，求具体的代码？？

fglongorderid=Getlongpendingorder("FG06","ZQ")
fglongorderidtime=order.OrderInfoTime2(fglongorderid)
上面两行，我已经取得了未成交单子的单号和委托的时间，假如说我要委托后十秒钟不能成交就撤单，我该怎么写？

--  作者：FexTel
--  发布时间：2014/11/21 10:21:51
--

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

--  作者：啊东西
--  发布时间：2014/11/23 21:20:13
--
请教版主一下，如果是我要取得某一个品种的空头多仓或者空仓的未成交单子，请问这样子的写法对吗？？
Function Getshortpendingorder(Scode,Smarket) \'获取未成交单
Dim Orderid \'订单Id
Dim Filled \'提交手数
Dim Remaining \'剩余手数
Dim Action \'买卖
Dim Ordertype \'订单类型
Dim Lmtprice \'委托价
Dim Account1 \'账户
Dim Kaiping \'开平
Getshortpendingorder=0
Pendingcount=Order.Ordernum2
For 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 if
Next
End Function

--  作者：啊东西
--  发布时间：2014/11/23 21:21:40
--
写错了，应该是取得空头的开仓单子或者平仓单子？

--  作者：啊东西
--  发布时间：2014/11/23 21:28:36
--
请问你给的代码当中的 OrdTime=right(Order.OrderInfoTime2(i),8)是什么意思呢？

--  作者：guotx2010
--  发布时间：2014/11/24 8:44:16
--

OrdTime=right(Order.OrderInfoTime2(i),8)是订单的委托时间

另外，楼主需要了解一下自定义函数的格式，返回值都是以函数的名字作为变量返回的，比如

function aaa(var1,var2)

    \'你的代码

    aaa=XXX     \'这一行就是返回值，注意前面的aaa，就是函数的名称

end function

--  作者：啊东西
--  发布时间：2014/11/24 9:32:17
--
版主大哥，我的疑惑主要在于
OrdTime=right(Order.OrderInfoTime2(i),8)这个语句里面有这个right( ,8)是不是因为是因为某些品种的交易时间因为在金字塔上经过修改，与实际时间不一致，所以会将时间前移8个小时，请问是不是这样？、

--  作者：啊东西
--  发布时间：2014/11/24 9:34:49
--
小弟还有一个问题想请教一下大哥：金字塔VBA在一个项目当中的一个小模块当中，最多可以写多少行VBA代码？？如果是使用专业机构版的多账户功能，在VBA的情况下，是不是最多可以登录15个账户？？

--  作者：王锋
--  发布时间：2014/11/24 16:26:57
--

以下是引用啊东西在2014/11/24 9:32:17的发言：
版主大哥，我的疑惑主要在于

OrdTime=right(Order.OrderInfoTime2(i),8)这个语句里面有这个right( ,8)是不是因为是因为某些品种的交易时间因为在金字塔上经过修改，与实际时间不一致，所以会将时间前移8个小时，请问是不是这样？、

这里的主要意思应该是只取交易时间,因为这个返回的格式是日期+时间格式的

--  作者：FexTel
--  发布时间：2014/11/25 13:16:19
--

用户要学会基本的调试,例如OrdTime=right(Order.OrderInfoTime2(i),8)//你不知道为什么要用8这个参数

那么你可以直接输出相爱Order.OrderInfoTime2(i)的值,看看与ordtime的差别在那,相信你就明白了。学习就是多动手,别人讲透了就缺少了学习的乐趣