主题：金字塔K逐线模式下 自编的函数是否正确？动态止盈止损功能有时好用有时不好用 没有规律。。。。请高手指点错误在哪?

Function DTZYZS(Formula,T,K,D,F,W)
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 '函数机能:动态止盈止损
 '参数说明:T 0:收阳止盈 1:收阴止盈 2:收阳止损 3:收阴止损 4:价格收阳止盈 5:价格收阴止盈
 '         K 持仓价
 '         D 指定值
 '         F 浮动点
 '         W 委托量  
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    '系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
   
    If order.Holding2=0 Then
     Exit Function
    End If

    
 DTZYZS=1
 W=abs(W)
 ' 得到框架名称为"Technic"，窗格名称为"Main"的窗格对象
 Set Grid = Technic.GetGridByName("Main")
 
 '最新价格取得
 Set Report1=marketdata.GetReportData(Grid.StockLabel,Grid.Market)
 NewPrice=Report1.NewPrice

 '分别处理
 Select Case T
  Case 0 '收阳止盈
   If NewPrice >= K + D Then
    call order.Sell(0,W,NewPrice-F,0,Grid.StockLabel,Grid.Market,"",0)
    Application.msgout Cdate(time) & ":【止盈】委托价:" & NewPrice-F & "委托量:" & W
    DTZYZS=0
      End If
      Exit Function
  Case 1 '收阴止盈
   If NewPrice <= K - D Then
    call order.SellShort(0,W,NewPrice+F,0,Grid.StockLabel,Grid.Market,"",0)
    Application.msgout Cdate(time) & ":【止盈】委托价:" & NewPrice+F & "委托量:" & W
    DTZYZS=0
      End If
      Exit Function
  Case 2 '收阳止损
   If NewPrice <= K - D Then
call order.Sell(0,W,NewPrice-F,0,Grid.StockLabel,Grid.Market,"",0)
    Application.msgout Cdate(time) & ":【止损】委托价:" & NewPrice-F & "委托量:" & W
    DTZYZS=0
      End If
      Exit Function
  Case 3 '收阴止损
   If NewPrice >= K + D Then
    call order.SellShort(0,W,NewPrice+F,0,Grid.StockLabel,Grid.Market,"",0)
    Application.msgout Cdate(time) & ":【止损】委托价:" & NewPrice+F & "委托量:" & W
    DTZYZS=0
      End If
      Exit Function
  Case 4 '价格收阳止盈
   If NewPrice >= D Then
    call order.Sell(0,W,NewPrice-F,0,Grid.StockLabel,Grid.Market,"",0)
    Application.msgout Cdate(time) & ":【止盈】委托价:" & NewPrice-F & "委托量:" & W
    DTZYZS=0
      End If
      Exit Function
  Case 5 '价格收阴止盈
   If NewPrice <= D Then
    call order.SellShort(0,W,NewPrice+F,0,Grid.StockLabel,Grid.Market,"",0)
    Application.msgout Cdate(time) & ":【止盈】委托价:" & NewPrice-F & "委托量:" & W
    DTZYZS=0
      End If
      Exit Function
 End Select

End Function