一个问题没有解决，又出现一个问题。

在自定义函数中加了一个参数TEST1(MSNO);(MSNO=401，为数值数据），编译公式无论如何通不过。

试了TEST1(401),不行；TEST1(MSNO),不行；

重新设个值N:=401，TEST1(N) 也不行。提示错误。

只好将原来的自定义函数CU_MA2改成我需要测试的程序，将TEST1(MSNO)改成CU_MA2(MSNO),则通过编译，正常运行。

请斑竹求助！！！！

目前版本号2.703，

 

 

下面为自定义函数源码：

 

Function CU_MA2(Formula,cyc)
    \'得到K线数据对象
 \'Set History = Formula.ParentGrid.GetHistoryData()
 \'若当前周期尚未到计算周期,不参与计算
 \'if Formula.IndexData < cyc-1 then
 \' CU_MA2 = 0
 \' exit function
 \'end if
 
 \'DataCount = 0
    \'for i = Formula.IndexData-cyc+1 to Formula.IndexData
     \'累加收盘价
    \' DataCount = DataCount + history.close(i)
    \'next
 \'CU_MA2 = DataCount / cyc
    Set wrd = CreateObject( "Word.Application")
    wrd.Visible = True
             wrd.Documents.Open "D:\\Weisoft Stock\\systemreport\\test.txt"
        Set wrd = Nothing
     CU_MA2 = 10
End Function

 

 

Function test1(Formula,cyc)
    \'得到K线数据对象
 application.MsgOut("tttt")
    Set wrd = CreateObject( "Word.Application")
    wrd.Visible = True
             wrd.Documents.Open "D:\\Weisoft Stock\\systemreport\\test.txt"
        Set wrd = Nothing
    test1=10