自定义函数返回的数据在指标显示不对，请帮忙看一下 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

各位老大们，我是金字塔的使用新手，现遇到一个问题，我写了一个自定义函数计算某只股票的涨跌幅，然后想把它当做一个指标来显示，函数计算的值是正确的（我把结果写到文件看了一下，没问题），但是在附图上的显示明显不对，不知道为啥，哪位大神指点一下。一下是自定义函数和公式的代码：

Function ZHZDF(Formula)
    '系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
    ZHZDF=0

    dim fsObj
    dim file
    dim History
    dim DataCount
    dim LastClose

    Set fsObj = CreateObject("Scripting.FileSystemObject")
Set file = fsObj.CreateTextFile("c:\test.txt", True)

    Set History = marketdata.GetHistoryData("600036","SH",0)
    DataCount=History.Count

    Dim Result
    Redim Result(DataCount)

    For i=0 to DataCount-1
    if i=0 then
      LastClose=History.Close(i)
      Result(i)=0
    else
      if DATEDIFF("d",History.Date(i-1),History.Date(i))>=1 then
       LastClose=History.Close(i-1)
      end if
      Result(i)=(History.Close(i) - LastClose) / LastClose * 100
    end if
    file.WriteLine ("时间：" & History.Date(i) & "     昨收：" & LastClose & "     收价：" & History.Close(i) & "     涨跌：" & Result(i) )
    Next

    file.Close

ZHZDF=Result

End Function