How To Calculate Moving Average Convergence Divergence (MACD) in Visual Basic?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

Function MACD(inputData As Variant, shortPeriod As Integer, longPeriod As Integer, signalPeriod As Integer) As Variant
    Dim shortMA As Variant
    Dim longMA As Variant
    Dim macdLine As Variant
    Dim signalLine As Variant
    Dim macdHistogram As Variant
    
    shortMA = SimpleMovingAverage(inputData, shortPeriod)
    longMA = SimpleMovingAverage(inputData, longPeriod)
    
    macdLine = Application.WorksheetFunction.Substitute(shortMA, "-", "+") - longMA
    
    signalLine = SimpleMovingAverage(macdLine, signalPeriod)
    
    macdHistogram = macdLine - signalLine
    
    MACD = macdHistogram
End Function

Function SimpleMovingAverage(inputData As Variant, period As Integer) As Variant
    Dim outputData As Variant
    Dim i As Integer
    Dim sumValues As Double
    
    ReDim outputData(UBound(inputData))
    
    For i = 0 To UBound(inputData)
        If i >= period - 1 Then
            sumValues = 0
            For j = i - period + 1 To i
                sumValues = sumValues + inputData(j)
            Next j
            outputData(i) = sumValues / period
        Else
            outputData(i) = Empty
        End If
    Next i
    
    SimpleMovingAverage = outputData
End Function