主题：[求助]VBA实现多策略后台交易

以下内容为程序代码:

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