主题：GetHistoryDataByDate取历史数据报错

Sub APPLICATION_VBAStart()
 application.MsgOut  "开始运行..."
 dim my_HistoryData, date_array(250)
 Set my_HistoryData  = marketdata.GetHistoryData("000001", "SH", 5)
 for i = 750 to 1000 -1
  date_array(i-750) = my_HistoryData.Date(i)
 next

  for date_i = 1 to Ubound(date_array) - 1
  date_i_b_str = date_array(date_i-1) 
     date_i_e_str = date_array(date_i) 
     application.MsgOut   date_i_b_str & " " & date_i_e_str
     my_HistoryData  = marketdata.GetHistoryDataByDate("600109", "SH", 5, date_i_b_str, date_i_e_str)
     application.MsgOut  my_HistoryData.count & " " & my_HistoryData.close(0)
     marketdata.DestroyHistoryData
    next

输出结果：

开始运行...
2014/1/21 2014/1/22
开始运行...
0:00:00 0:00:00
开始运行...
2014/1/21 2014/1/22

不但报错，而且多次运行的输出结果也很奇怪，每次都不一样，如上。