求助：真實(shí)的成交價(jià) [金字塔]
- 咨詢內(nèi)容：
由于編程基礎(chǔ)比較差，VBA編程還不是很熟練，請高手指點(diǎn)，如何編寫自定義函數(shù)，得到賬戶最后一次真實(shí)的成交價(jià)，感謝
- 金字塔客服：
回頭幫您寫個(gè)范例,請耐心等待
- 用戶回復(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)容
會(huì)員登錄/注冊