[原創(chuàng)]寫(xiě)5分鐘數(shù)據(jù)變15分鐘 K線求解呀！====== [金字塔]
- 咨詢(xún)內(nèi)容：
[原創(chuàng)]寫(xiě)5分鐘數(shù)據(jù)變15分鐘 K線求解呀！1.我數(shù)據(jù)庫(kù)明明5分鐘數(shù)據(jù)數(shù)據(jù)如下：
此主題相關(guān)圖片如下：qq圖片20140725003407.jpg
用如下程序?qū)霐?shù)據(jù)庫(kù) for i=0 to DataCol.length-1 Set His= marketdata.GetHistoryData(StockLabel,Market,2) 'CycType保存周期 0:日線 1:1分鐘 2:5分鐘 His.InsertAt(His.Count) His.Date(His.Count-1) =xmlInData(DataCol(i).getAttribute("DateTime")) His.Open(His.Count-1) =DataCol(i).getAttribute("Open") His.High(His.Count-1) =DataCol(i).getAttribute("High") His.Low(His.Count-1) =DataCol(i).getAttribute("Low") His.Close(His.Count-1) =DataCol(i).getAttribute("Close") His.Volume(His.Count-1) =DataCol(i).getAttribute("Vol") call His.SaveData(StockLabel,Market,2) Technic.ReCalcAllGrid next我是從遠(yuǎn)程讀到xml后生成K線
進(jìn)到K線的數(shù)據(jù)變成了如下：
此主題相關(guān)圖片如下：qq圖片20140724235848.jpg
好多K線這里全部少了！真是查不出問(wèn)題來(lái)！都是按手冊(cè)寫(xiě)的！
[此貼子已經(jīng)被作者于2014/7/25 0:33:37編輯過(guò)] - 金字塔客服：
你可以考慮使用 Application.msgout 函數(shù), 做一下排除法看看問(wèn)題出現(xiàn)在那個(gè)部分.
比如
讀取到數(shù)據(jù)庫(kù)數(shù)據(jù)后,你先用Application.msgout 打印輸出一下日期,看看讀到的數(shù)據(jù)是否正確
讀取數(shù)據(jù)正確后,再打印his的對(duì)象內(nèi)容看看是否正確,將問(wèn)題排查范圍逐漸縮小
學(xué)會(huì)使用一些簡(jiǎn)單的調(diào)試技巧,是你編寫(xiě)VBA代碼一個(gè)最基本應(yīng)該掌握的
- 用戶(hù)回復(fù)：
數(shù)據(jù)都會(huì)進(jìn)到軟件里了，只是軟件會(huì)一下子給你整成15分鐘K線！
- 網(wǎng)友回復(fù)：
會(huì)不會(huì)軟件 必須交錢(qián)才有5分鐘K線呀，感覺(jué)有這個(gè)可能性！我是免費(fèi)版，在研究測(cè)試指標(biāo)！
- 網(wǎng)友回復(fù)：
問(wèn)題查到了。真是郁悶！
Set His= marketdata.GetHistoryData(StockLabel,Market,2) 這行代碼 最后一個(gè)標(biāo)志錯(cuò)了。應(yīng)該是1表示5分鐘
和SaveData中后面一個(gè)參數(shù)不一樣。哎！真是害死人了！
有思路，想編寫(xiě)各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 1145508240 進(jìn)行 有償 編寫(xiě)！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒(méi)有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)