之后又不对了,运行结果:
C09 HistoryData.count=1000
AY01 HistoryData.count=109
CF01 HistoryData.count=1000
FG01 HistoryData.count=1000
I01 HistoryData.count=1000
JD01 HistoryData.count=1000
L01 HistoryData.count=1000
M01 HistoryData.count=1000
MA01 HistoryData.count=1000
OI01 HistoryData.count=1000
RU01 HistoryData.count=0
TA01 HistoryData.count=1000
Y01 HistoryData.count=1000
ZC01 HistoryData.count=1000
BUY01 HistoryData.count=343
P01 HistoryData.count=1000
重新启动电脑、重启金字塔都是这个结果。补数据也重复进行过。换周期为5分钟,也不正确:
C09 HistoryData.count=405
AY01 HistoryData.count=49
CF01 HistoryData.count=700
FG01 HistoryData.count=687
I01 HistoryData.count=687
JD01 HistoryData.count=405
L01 HistoryData.count=405
M01 HistoryData.count=687
MA01 HistoryData.count=1000
OI01 HistoryData.count=687
RU01 HistoryData.count=1000
TA01 HistoryData.count=687
Y01 HistoryData.count=687
ZC01 HistoryData.count=687
BUY01 HistoryData.count=0
P01 HistoryData.count=1000
关键代码如下,其中Stock Market预先存储在("Stock.ArrayString")中:
Set HistoryData = marketdata.GetHistoryDataByDate(Stock,Market,0,date,date)
Application.MsgOut Stock &" HistoryData.count="&HistoryData.count
marketdata.DestroyHistoryData