ArchiveValue

 

Remarks Properties Methods Samples

ED
not used
RT
avaliable

Remarks:Top

The "ArchiveValue" object contains the value parameters for the "ArchiveFilterVariable" object.

Properties:Top

Parent Status Time
TimeMilliSec Value  

Methods:Top

DynPropertiesEnum[GET] DynProperties[GET] DynProperties[PUT]
SetModified    

Samples:Top

Sub zenOn_ArchiveValue(ByRef zArvFilterVar As ArchiveFilterVariable)
	'Declarations
	Dim zArvValue As ArchiveValue
	Dim zTimeConvert As clsTimeConvert

	'Initialize zArvValue with the first available value within the current archive variable
	Set zArvValue = zArvFilterVar.ArchiveValues.Item(0)

	'Initialize zTimeConvert by creating a new instance of the zenOn "clsTimeConvert" macro
	Set zTimeConvert = New clsTimeConvert

	'If no value is available ...
	If zArvValue Is Nothing Then
		'... then inform the user
		MsgBox ("No value available!")
	
	'Otherwise:
	Else
		'Output the date and time when the value was recorded
		Debug.Print "Date / Time: " & Format(zTimeConvert.zenOn2System(CDbl(zArvValue.Time)), "yyyy-mm-dd hh:mm:ss") & "." & zArvValue.TimeMilliSec
		'Output the recorded value
		Debug.Print "Recorded value: " & zArvValue.Value
		'Output the state of the value
		Debug.Print "State: &H" & Hex(zArvValue.Status)
	End If

End Sub