您好,我现在的策略就是多品种检测的,里面有个函数用到了GetHistoryData对象:
以下内容为程序代码:
1 Function FindTdayExtreme(sConCode,sMarketCode,CycType,t,HighOrLow,isTInclued)
2 '寻找某合约前t周期的最高/低价
3 'sConCode :合约代码
4 'sMarketCode :市场代码
5 'CycType :周期类型(0.1分钟;1.5分钟;2.15分钟;3.30分钟;4.60分钟;5.日线;6.周线;7.月线)
6 't :最高价/最低价的回溯周期数
7 'HighOrLow :1.最高价;-1.最低价
8 'isTInclued :是否包含当前周期(0.不包含;1.包含)
9
10 Set HisData=MarketData.GetHistoryData(sConCode,sMarketCode,CycType,t+1)
11 FindTdayExtreme=0
12
13 '检查是否数据不足
14 If HisData.Count<t+1 then
15 MsgBox sConCode & "历史数据不足,请补充!"
16 Exit Function
17 End If
18
19 '初始化
20 If HighOrLow=1 then
21 FindTdayExtreme=HisData.High(0)
22 ElseIf HighOrLow=-1 then
23 FindTdayExtreme=HisData.Low(0)
24 Else
25 MsgBox "不能识别参数:HighOrLow"
26 Exit Function
27 End If
28
29 '开始迭代最高/低价
30 For i=1 to t-1
31 If HighOrLow=1 then
32 FindTdayExtreme=Fun.Max(FindTdayExtreme,HisData.High(i))
33 Else
34 FindTdayExtreme=Fun.Min(FindTdayExtreme,HisData.Low(i))
35 End If
36 Next
37
38 End Function
请问程序在调用这个函数的时候会出现您所说的共享缓冲区的问题吗?(我也不是很懂共享缓存区是什么意思)
另外,您说的通过数组类去保存具体是什么意思呢?