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