VBNET_StatisticModule00_MovingAverageFunction

VB_Module_Stat00

Module Stat00
    Function MovAve(ByRef dA(,) As Long, ByVal colN As Integer, ByVal MA As Integer, ByVal rowN As Integer) As Double()
        Dim i, j As Integer
        Dim dataSum() As Long
        Dim dSum As Long
        Dim dataA() As Double '= {0, 0, 0, 0, 0, 0, 0}
        'Debug.Print("====colN=" & CStr(colN) & "MA=" & CStr(MA) & "rowN=" & CStr(rowN))
        ReDim dataSum(colN + 1)
        ReDim dataA(colN + 1)

        For j = 0 To colN - 1
            dSum = 0
            For i = rowN - MA To rowN
                dSum = dSum + dA(i, j)
                'Debug.Print("dA(" & CStr(i) & "," & CStr(j) & ")=" & CStr(dA(i, j)) & CStr(dataSum(j)))
            Next
            dataA(j) = CDbl(dSum / MA)
        Next
        MovAve = dataA
    End Function
End Module