使用自定义函数的时候,用弄到了GetHistoryData来读去历史数据,但是发现GetHistoryData取得的历史数据是硬盘全部或部分数据,而不是自定义函数所在序列的历史数据,这就造成算出来的结果就像全局变量一样,只有一个数值,该如何让历史的数据用历史计算?
比如做一个指标,应用自定义函数,函数代码为
Dim l '创建一个变量
'创建Array外部对象,将对象实例置变量d中
Set l = CreateObject("Stock.Array")
'创建完Array对象后往其内部插入两个数据
ClosePrice = History.Close(History.Count-1)
自定义函数返回ClosePrice 这个数值
那么指标体现在图表上就像全局变量一样一条直线
调用公式系统的数据,这样就能对应上了!
Set MyGrid = Formula.ParentGrid
Set History = MyGrid.GetHistoryData()
根据 Formula对象的IndexData属性,调用History对象的数据就行了