Sub GetOrderTime()
PendingCount=Order.OrderNum2
For i=0 to PendingCount-1
Call Order.OrderInfo2(i,OrderID,ConSign,Filled,Remaining,Action,OrderType,LmtPrice,Account,Kaiping,Code,Market)
OrdTime=Order.OrderInfoTime2(i)
Application.msgout "第几个未成交订单:"&i&",Code:"&Code&",方向:"&Aspect&",开平:"&Kaiping&",委托时间:"&OrdTime
Next
End Sub