求助:真實的成交價 [金字塔]
- 咨詢內(nèi)容:
由于編程基礎(chǔ)比較差,VBA編程還不是很熟練,請高手指點,如何編寫自定義函數(shù),得到賬戶最后一次真實的成交價,感謝
- 金字塔客服:
回頭幫您寫個范例,請耐心等待
- 用戶回復(fù):
衷心感謝!
- 網(wǎng)友回復(fù):
看了VBS有很多Order的指令,但是現(xiàn)在還是沒有辦法用好,需要努力一段時間才行啊
- 網(wǎng)友回復(fù):
示例代碼
Function GetLastPrice(Formula)
'系統(tǒng)會在逐K線模式解釋公式時的每個周期都會調(diào)用此函數(shù)一遍,因此設(shè)計時應(yīng)該注重程序的執(zhí)行效率,不要重復(fù)的執(zhí)行一些沒必要的代碼
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 自定義函數(shù),然后將上面的代碼貼過去就可以了
有思路,想編寫各種指標(biāo)公式,程序化交易模型,選股公式,預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 1145508240 進行 有償 編寫!(不貴!點擊查看價格!)
相關(guān)文章
-
沒有相關(guān)內(nèi)容