白天用VBA策略是能正常的实盘开仓，到了夜盘就不正确，不知道什么原因，求解决！ 代码如下：

sub xingezc(PN,PZ,mycode,mymarket,A,B,D,CTY,CTY1) \'cl策略编号，A,B,D策略优化参数，cty策略周期，CTY1，CTY2读取多分钟,PN品种编号 pz持仓量      
    dim H10,L10,H20,L20,AB,OVOL,myclose,sss \'   H10,L10中线，H20上轨，L20下轨，d周期原始成交量 ,ovel上期原始成交量,根K线的收盘价变量
    SET Histroy = marketdata.GetHistoryData( mycode,mymarket,CTY,0,CTY1) \'得到周期K线  
    myclose=Histroy.Close(Histroy.Count-2)  \'得到上根K线的收盘价      
    OVOL=Histroy.Volume(Histroy.Count-2)\'原始成交量
    \'得到上根K线的收盘价
    H10=Histroy.Close(Histroy.Count-(2+A))
     L10=H10 \'平仓线
       \'多方向开仓线
     for a =(2+1) to (b+3)
           arr(a)=Histroy.High(Histroy.Count-A)
         if arr(a)>H20 then
            H20=arr(a)
            end if
            next
       \'空方向开仓线
     L20=Histroy.LOW(Histroy.Count-(2+1))
       for a =(2+1) to (b+3)
           arr(a)=Histroy.LOW(Histroy.Count-A)
         if arr(a)<L20 then
           L20=arr(a)        
           end if
           next  
         AB=Histroy.Volume(Histroy.Count-(2+D))\'d周期原始成交量      
             sss=pz
             xinge=pz \'初始化持仓手数
        
      \'开多   
       IF myclose>H20 AND myclose>H10 AND OVOL>AB AND sss=0  THEN
          sss=1      
     \' 平多
       ELSEIF myclose<h10 AND sss>0 THEN
          sss=0         
     \' 开空
       elseif  myclose<L20 AND myclose<L10 AND OVOL>AB AND sss=0  THEN
          sss=-1        
     \' 平空
       ELSEIF MYCLSOE>H10 AND sss<0 THEN
          sss=0                                      
       END IF
        xinge=sss  
end sub      

xinge 是全局变量