以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (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=59657)
--  作者：deni977
--  发布时间：2013/12/8 21:06:52
--  求助：真实的成交价
由于编程基础比较差，VBA编程还不是很熟练，请高手指点，如何编写自定义函数，得到账户最后一次真实的成交价，感谢
--  作者：王锋
--  发布时间：2013/12/9 9:51:43
--  
回头帮您写个范例,请耐心等待
--  作者：deni977
--  发布时间：2013/12/9 21:00:44
--  

衷心感谢！
--  作者：deni977
--  发布时间：2013/12/12 12:24:43
--  
看了VBS有很多Order的指令，但是现在还是没有办法用好，需要努力一段时间才行啊
--  作者：王锋
--  发布时间：2013/12/14 22:25:23
--  

示例代码

 

Function GetLastPrice(Formula)
    \'系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
    GetLastPrice=0
   
    if order.TradeCount2 < 1 then
       exit function
    End if
   
    if Formula.WorkMode = 0 and Formula.IsLastBar = 0 then
     exit function
    End if
   
    dim date
 dim code
 dim market
 dim ordertype
 dim Action
 dim Price
 dim Volume
 dim Kaiping

 \'读取第一个成交记录
 order.TradeDetalied2 0,date,code,market,ordertype,action,price,volume,Kaiping
 
 \'返回得到的最后一个成交记录中的成交价格
 GetLastPrice price

End Function

 

 首选你要建立一个 GetLastPrice  自定义函数，然后将上面的代码贴过去就可以了
--  作者：deni977
--  发布时间：2013/12/15 6:16:26
--  
非常感谢！