ArchiveVarED

Remarks:

The "ArchiveVarED" object contains the assigned "Variable" object and projecting information on the calculation mode.

The object is utilized by the "ArchiveED" object.

Methods:

DynProperties:

Samples:

Sub zenOn_ArchiveVarED(ByRef zArchiveED As ArchiveED)
	'Declarations
	Dim zArvVarED As ArchiveVarED

	'Initialize zArvVarED with the "ArchiveVarED" object, where the variable named "WIZ_VAR_10" is assigned to it.
	Set zArvVarED = zArchiveED.Item("WIZ_VAR_10")
	'If the variable is not assigned to it ...
	If zArvVarED Is Nothing Then
		'... then add it to the archive
		Set zArvVarED = zArchiveED.AddVariable("WIZ_VAR_10", 0, Nothing)
	End If

	'Output the variable name
	Debug.Print "Variable name: " & zArvVarED.DynProperties("Variable").Name

	'Output the calculation mode
	Select Case zArvVarED.DynProperties("Calculation")
		Case 0
			Debug.Print "Calculation mode: All values"
		Case 1
			Debug.Print "Calculation mode: Sum"
		Case 2
			Debug.Print "Calculation mode: Average"
		Case 3
			Debug.Print "Calculation mode: Minimum"
		Case 4
			Debug.Print "Calculation mode: Maximum"
	End Select

End Sub