The Positive Negative Changes Difference function calculate the difference
between increases and decreases of price over last period of time.
Public Function PositiveNegativeChangesDiff(ByVal PNCDIn() As Double, ByVal Lag As Long) As Double
Example:
Dim TA4Net As
New TA4Net.CTAFunctions("YOUR-REGISTRATION-CODE")
Dim Result() As
Double
Dim CloseValues() As
Double
' loading values to array
CloseValues =
GetCloseValues()
' calculating Technical Analysis function
Result = TA4Net.PositiveNegativeChangesDiff(CloseValues, 14)