标题：求助：真实的成交价

由于编程基础比较差，VBA编程还不是很熟练，请高手指点，如何编写自定义函数，得到账户最后一次真实的成交价，感谢

回头帮您写个范例,请耐心等待

衷心感谢！

看了VBS有很多Order的指令，但是现在还是没有办法用好，需要努力一段时间才行啊

示例代码

 

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  自定义函数，然后将上面的代码贴过去就可以了

非常感谢！