是因为5秒的数据不全吗？

weishao

        call Secpztradetime(stkname,secondsperiod) ‘计算5秒钟周期的K线的各K线结束时间       
        sectodaybar = secmytodaybar(StkName) ‘计算5秒钟周期的K线数量       
        set hissec = MarketData.GetHistoryData(stklabel,marketname,12,sectodaybar,5)’引用当日的所有5秒钟K线的历史数据
        if IsObject(hissec)=true then
                dataseccount = hissec.count
                'Application.MsgOut StkLabel&":dataseccount="&dataseccount       
                'call Document.WritePrivateProfileString("5secprice","dataseccount",dataseccount,"D:\documents\personaldocs\jzt\Wvba\"&StkName&"5secprice.ini")
                If dataseccount<> sectodaybar Then
                        Application.MsgOut StkLabel&",5秒钟数据数量="&dataseccount&"不等于K线的数据数量:"&sectodaybar
                        Application.MsgOut StkLabel&",需补充5秒数据后再运行VBA,交易"               
                        application.PostMessage(32797)
                Else

技术006

1440是理论的数量，实际k线数据不一定是1440根，软件合成数据是根据分笔数据合成的，如果某个5秒钟内没有分笔数据，那么是不会产生k线的。自然就会不足1440