[原创]写5分钟数据变15分钟 K线求解呀！====== [金字塔]
- 咨询内容：
[原创]写5分钟数据变15分钟 K线求解呀！1.我数据库明明5分钟数据数据如下：
此主题相关图片如下：qq图片20140725003407.jpg
用如下程序导入数据库 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我是从远程读到xml后生成K线
进到K线的数据变成了如下：
此主题相关图片如下：qq图片20140724235848.jpg
好多K线这里全部少了！真是查不出问题来！都是按手册写的！
[此贴子已经被作者于2014/7/25 0:33:37编辑过] - 金字塔客服：
你可以考虑使用 Application.msgout 函数, 做一下排除法看看问题出现在那个部分.
比如
读取到数据库数据后,你先用Application.msgout 打印输出一下日期,看看读到的数据是否正确
读取数据正确后,再打印his的对象内容看看是否正确,将问题排查范围逐渐缩小
学会使用一些简单的调试技巧,是你编写VBA代码一个最基本应该掌握的
- 用户回复：
数据都会进到软件里了，只是软件会一下子给你整成15分钟K线！
- 网友回复：
会不会软件 必须交钱才有5分钟K线呀，感觉有这个可能性！我是免费版，在研究测试指标！
- 网友回复：
问题查到了。真是郁闷！
Set His= marketdata.GetHistoryData(StockLabel,Market,2) 这行代码 最后一个标志错了。应该是1表示5分钟
和SaveData中后面一个参数不一样。哎！真是害死人了！
有思路，想编写各种指标公式，程序化交易模型，选股公式，预警公式的朋友
可联系技术人员 QQ: 1145508240 进行 有偿 编写！（不贵！点击查看价格！）
相关文章
-
没有相关内容
会员登录/注册