求帮忙，急 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

程序主要功能是监控账户资金，当资金低于aa会做出提醒，然后资金低于aa1依然会做出提醒，并且会执行一个强制平掉所以仓位的动作，

另外在有隔夜单的情况下，（我们把15点13分后未平仓的单子归属于隔夜单），可用资金必须大于aa2，否则抢平，直到可用金大于aa2，

这是我上次发的帖子，也得到大家的帮助了，但是最后一点隔夜单的问题上我不是很明白，附上上次给我的程序样板，希望大家能解下我的燃眉之急

因为你这里没有下单语句所以隔夜单必须要用事件捕捉。

其余代码如下，写出了大致思路，仅供参考，需要微调有问题可以继续咨询

dim aa
aa=99999
dim aa1
aa1=50000
dim aa2
aa1=25000
sub application_vbastart()
call marketdata.regreportnotify("if12","zj")
end sub
'public filltime
sub marketdata_reportnotify(reportdata)
dim i
dim BuyHold
dim BuyCost
dim SellHold
dim SellCost
dim CurCode
dim CurMarket

a1=order.Account(3)
call application.msgout(a1)
if a1<aa then
call application.msgout("可用资金小于了aa")
end if
if a1<aa1 then
call application.msgout("可用资金小于了aa1")
HoldingCount=Order.Holding2("88")
If HoldingCount>0 then
For i=0 to HoldingCount-1
Call Order.HoldingInfo2(i,BuyHolding,BuyCost,BuyTodayHolding,SellHolding,SellCost,SellTodayHolding,PNL,UseMargin,Code,Market,sAccount)
CurCode=Code
CurMarket=Market
BuyHold=BuyHolding
SellHold=SellHolding
if BuyHold>0 then
call order.Sell(1,BuyHold,0,CurCode,CurMarket,"88",0)
end if
if SellHold>0 then
call order.Sell(1,BuyHold,0,CurCode,CurMarket,"88",0)
end if
NEXT
end if
end if
end sub

蓝色部分是上次的回帖，我想说如果隔夜单那么不好处理，那能不能写成有隔夜单的情况下，（我们把15点13分后未平仓的单子归属于隔夜单），可用资金必须大于aa2，否则把所以仓位全部强平。

然后就是有一些函数我不是很明白，比如SellCost，PNL，UseMargin,Code，sAccount等等，还有就是画底纹的两件，应该是平仓，1，是条件，buyholding是持有的多单，0是全平，但是curcode跟最后的那个0，实在不明白事什么意思，

最后就是感觉这个程序好像只能对单个账户进行监控，我是想说我们可以对多个账户进行监控，可以的话能不能附上点注解，便于明白程序的原理，因为我真的比较急需这个监控，希望可以对多个账户进行监控，未来监控账户如果再度增加，程序的修改于增加也比较方便，希望各位老师帮帮忙了，在此谢过了

主题：求帮忙，急