求助：真實的成交價　[金字塔]

衷心感謝！

示例代碼

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  自定義函數，然后將上面的代碼貼過去就可以了