如何在限定时间内不成交即撤单？、这个功能如何实现，求具体的代码？？　[金字塔]

Sub OrderCheDan()    '获取未成交单，指定秒数后撤单
   PendingCount=Order.OrderNum2
    For i=0 to PendingCount-1
    Call Order.OrderInfo2(i,OrderID,ConSign,Filled,Remaining,Action,OrderType,LmtPrice,Account,Kaiping,Code,Market)
   'application.MsgOut Cdate(time) & ",sAction:" & sAction & ",sKaiping:" & sKaiping & ",LmtPrice:" & LmtPrice & ",OrderID:" & OrderID
    OrdTime=right(Order.OrderInfoTime2(i),8)
    'application.MsgOut "OrdTime:"&OrdTime
    if Datediff("s",OrdTime,Cdate(time))>10 then     '大于10秒撤单
   Call Order.CancelOrder( OrderID)
   end if   
   
   Next
End Sub