Re: Same Contents, Regardless of Order

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

On Tue, 17 Jun 2008 07:18:28 -0400, Ron Rosenfeld <ronrosenfeld@xxxxxxxxxx>
wrote:

I worked around this by testing to see if the argument was an object or not,
and using the Count property if it was an object, but I wonder if there is a
more efficient method.

Actually, the Extract function can be simplified:

=======================
Private Function Extract(a) As Variant
Dim i As Long
Dim temp() As Variant

If IsObject(a) Then
ReDim temp(1 To a.Count)
For i = 1 To a.Count
temp(i) = a(i)
Next i
Extract = temp
Else
Extract = a
End If
End Function
=========================
--ron
.

Quantcast