求助：真實的成交價 [金字塔]
- 咨詢內容：
由于編程基礎比較差，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 priceEnd Function
首選你要建立一個 GetLastPrice 自定義函數，然后將上面的代碼貼過去就可以了
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯系技術人員 QQ: 1145508240 進行 有償 編寫！（不貴！點擊查看價格！）
相關文章
-
沒有相關內容
會員登錄/注冊