主题：高手给个思路，怎样用VBA计算结算价

sub dd()
Set MinuteData = marketdata.GetHistoryMinuteData("if00","zj","2015-03-17")   //取历史某天的分笔

application.MsgOut MinuteData.Date(25187)                                                //实际算法自己设置个循环，找到时间比如大于14点是第几笔。
a= MinuteData.Amount(MinuteData.count-1)-MinuteData.Amount(25187)
b= MinuteData.Volume(MinuteData.count-1)-MinuteData.Volume(25187)
application.MsgOut (a/b)/300
end sub

算法大致这样，当天分笔只要建立对象那儿换下就可以了