Function Addbankuai(Formula)
'系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
'为保证函数运行稳定，请确保“VBA自定义函数安全模式”选项处于打开状态。步骤:工具菜单->选项->其他选项卡。
Addbankuai=0
Set b = CreateObject("Stock.Block")
dim blks,blkstk,stkmkt
blks=Document.GetExtString("入板")
blkstk=Document.GetExtString("入板股")
stkmkt=Document.GetExtString("入板市场")
call b.open(blks,1)
Application.MsgOut Cdate(Date) &Cdate(time) &vblf&"当前板块："&blks&vblf&"当前证券：<"&stkmkt&">"&blkstk
if b.IsBlockExist(blks)=0 then
call b.CreateBlock("自选",blks)
Application.MsgOut Cdate(Date) &Cdate(time) &vblf&"《"&blks&"》板块被创建"
end if
if b.IsStockExist(blkstk,stkmkt)=0 then
call b.AddStock(stkmkt,blkstk)
Application.MsgOut Cdate(Date) &Cdate(time) &vblf&"<"&stkmkt&">"&blkstk&"加入板块《"&blks&"》"
end if
blks=""
blkstk=""
stkmkt=""
Set b = nothing
Addbankuai=1
End Function