共10 条记录, 每页显示 10 条, 页签: [1]

[浏览完整版]

标题：如何在限定时间内不成交即撤单？、这个功能如何实现，求具体的代码？？

1楼

啊东西 发表于：2014/11/20 19:15:32

fglongorderid=Getlongpendingorder("FG06","ZQ")

fglongorderidtime=order.OrderInfoTime2(fglongorderid)

上面两行，我已经取得了未成交单子的单号和委托的时间，假如说我要委托后十秒钟不能成交就撤单，我该怎么写？

2楼

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

3楼

啊东西 发表于：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

End Function

4楼

啊东西 发表于：2014/11/23 21:21:40

写错了，应该是取得空头的开仓单子或者平仓单子？

5楼

啊东西 发表于：2014/11/23 21:28:36

请问你给的代码当中的 OrdTime=right(Order.OrderInfoTime2(i),8)是什么意思呢？

6楼

guotx2010 发表于：2014/11/24 8:44:16

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

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

function aaa(var1,var2)

'你的代码

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

end function

7楼

啊东西 发表于：2014/11/24 9:32:17

版主大哥，我的疑惑主要在于

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

8楼

啊东西 发表于：2014/11/24 9:34:49

小弟还有一个问题想请教一下大哥：金字塔VBA在一个项目当中的一个小模块当中，最多可以写多少行VBA代码？？如果是使用专业机构版的多账户功能，在VBA的情况下，是不是最多可以登录15个账户？？

9楼

王锋发表于：2014/11/24 16:26:57

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

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

10楼

FexTel 发表于：2014/11/25 13:16:19

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

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

共10 条记录, 每页显示 10 条, 页签: [1]