主题：金字塔自定义函数

想制作一个自定义函数，函数的大致功能是： 限定市场使用（比如：在某一公式里加上这个函数后，只能使用于函数所限定的市场，如：上海证券、深圳证券），而在看其他市场某一品种时，是无效的。 特来请教。请斑竹和懂得自定义函数的朋友帮忙。叩谢中！

//下面判断是不是深圳、上海市场

variable:CanUse=0;
if stricmp(marketlabel,'SZ')=0 then begin
    CanUse:=1;
End 
if stricmp(marketlabel,'SH')=0 then begin
    CanUse:=1;
End 

If CanUse=0 then   //不是就退出
    Exit;
 //下面是公式的主体部分
ma5:Ma(c,5);
 

首先建立下面一个自定义函数

'判断是否为上海或深圳证券市场的VBA自定义函数，返回1是，返回0为其他市场
Function NEEDCYC(Formula)
    If Formula.ParentGrid.Market = "SH" Or Formula.ParentGrid.Market = "SZ" THEN
     NEEDCYC=1
 Else
  NEEDCYC=0
 End if
End Function

 

公式系统里如下调用

//如果是上海或深圳市场则显示均线，否则什么都不显示

if Not(NEEDCYC()) then
exit;

MA1:MA(C,5);