共6 条记录, 每页显示 10 条, 页签: [1]

标题：VBA写个求本周起的平均值函数出了问题

1楼

jianshi2020 发表于：2013/8/9 16:25:17

Function avgtoone(Formula)
    avgtoone=0
    dim close
    dim open
    dim high
    dim low
    Set Grid = Technic.GetGridByName("Main")
     Set ReportData = Grid.GetReportData()
    open=ReportData.open
    high=ReportData.high
    low=ReportData.low
    close=ReportData.newPrice
    avg=(open+high+low+close)/4
    avgtoone=avg
End Function

请问我代码有什么问题吗？

为什么最后返回值不管在哪个周期都是2273.5 啊。。请教这是怎么一回事？

2楼

jianshi2020 发表于：2013/8/9 16:30:03

pd:AVGTOONE();

公式引用的这个

3楼

rushtaotao 发表于：2013/8/9 16:54:16

Function CU_MA1(Formula,CLOSE,CYC)
CU_MA1=0

    '防止公式逐周期模式时调用
    If Formula.WorkMode = 0 Then
        Exit Function
    End If

    'CLOSE数组数据长度一定会与Formula.DataSize-1相等
    DataCount = UBound(CLOSE)
    If DataCount <> Formula.DataSize-1 Then
        Exit Function
    End If

    '定义一个计算返回的数组
    Dim ResultMa
    Redim ResultMa(DataCount)

    For i = Cyc-1 To Formula.DataSize-1
        Count = 0
        For k = i-(Cyc-1) To i
            Count = Count + CLOSE(k)
        Next
        ResultMa(i) = Count / Cyc
    Next

'返回一个计算完毕的均线数组
CU_MA1 = ResultMa
End Function

这个是用收盘价加上周期计算的你把开高低收加上然后算值

4楼

jianshi2020 发表于：2013/8/9 16:58:54

'定义一个计算返回的数组
Dim ResultMa
Redim ResultMa(DataCount)

    For i = Cyc-1 To Formula.DataSize-1
        Count = 0
        For k = i-(Cyc-1) To i
            Count = Count + CLOSE(k)
        Next
        ResultMa(i) = Count / Cyc
    Next

'返回一个计算完毕的均线数组
CU_MA1 = ResultMa
End Function

这个我没看懂，为什么要返回计算完毕的均线数组呢？

5楼

rushtaotao 发表于：2013/8/9 17:07:09

定义数组多少行就放多少周期数据然后累加算出均值返回到函数

6楼

jianshi2020 发表于：2013/8/10 10:38:28

我是逐K线模式的，只计算出当前K线的高开低收，需要写那个数组吗？

共6 条记录, 每页显示 10 条, 页签: [1]