IMcOMGlobalMcMissingSingle Method |
![]() |
Namespace: MediaCy.IQL.ObjectManager
Dim moT As McObject, modMiss As McObject, mofMiss As McObject Set modMiss = McObjectTemp(McMissingDouble) Set mofMiss = McObjectTemp(McMissingSingle) Results.Text = "This is a missing Double: " & McMissingDouble & " Is Missing? " & McIsMissingValue(McMissingDouble) & vbCrlf & _ "This is a missing Single: " & McMissingSingle & " Is Missing? " & McIsMissingValue(mofMiss) Set moT = McObjectTemp(Array(1#, 3#, 5#, 7#)) moT.SelectedValues(Array(1, 2)) = mofMiss 'set two values to missing Results.Text = Results.Text & vbCrlf & "Vector w/missing: " & McToText(moT) Results.Text = Results.Text & vbCrlf & "Is Missing: " & McToText(McOpEQ(moT, modMiss)) Results.Text = Results.Text & vbCrlf & "Is Not Missing: " & McToText(McOpNE(moT, modMiss)) Results.Text = Results.Text & vbCrlf & "Is GT: " & McToText(McOpGT(moT, modMiss)) Results.Text = Results.Text & vbCrlf & "Plus 10: " & McToText(McOpAdd(moT, 10)) Dim varVal As Variant, moT2 As McObject varVal = moT.value Set moT2 = McObjectTemp(varVal) Results.Text = Results.Text & vbCrlf & "Round Trip: " & McToText(moT2) Results.Text = Results.Text & vbCrlf & "Sum,Min,Max: " & McToText(McOpConcat(McSum(moT), McOpConcat(McMin(moT), McMax(moT)))) Results.Text = Results.Text & vbCrlf & "Sum all missing: " & McToText(McSum(mofMiss, modMiss))