take user-defined array elements as a group?

[njs27]

I have a user-defined array with a number of elements. What I'm wondering is - is there an easy way to get the maximum value of one element for all the arrays?

I have something like

Type CustInfo
     Name as string
     Email as string
     Sales as double
End Type

and I want to find out what the largest number of Sales were for any single customer. Of course it would be nice to know the Customer's name as well, but I'll be happy to just get the sales number. Is there a way to do this without looping through the entire customer base, putting the sales # into an array and then finding the max of that array?

[Kenneth Hobson]

That is a user-defined data type, not an array. So, the value if any is the max.

[njs27]

Ok, it's a udt, not an array, but the question is still the same.

I want to look at CustInfo(1).Sales, CustInfo(2).Sales, all the way through CustInfo(n).Sales. And of those values, find the largest one. Is there a way to do that?

[shg]

Not without looping.

[njs27]

Not without looping.

Thanks, shg.

[Kenneth Hobson]

I don't see that as possible shg. If it was a collection then a loop could be used.

Type CustInfo
     Name As String
     Email As String
     Sales As Double
End Type

Sub Main()
  Dim i As Integer, c As CustInfo
  For i = 1 To 3
    With c
      c.Sales = i
    End With
  Next i
  MsgBox c.Sales
  MsgBox c(1).Sales  'Error
End Sub

[shg]

I don't see that as possible shg. If it was a collection then a loop could be used.

Pardon?

Type uCustRecd
     Name As String
     Email As String
     Sales As Double
End Type

Sub Main()
  Const n As Long = 10
  Dim i As Long
  Dim auCust(1 To n) As uCustRecd
  Dim dMax As Double
  
  For i = 1 To n
    auCust(i).Sales = Rnd * 100
  Next i
  
  dMax = -1.79769313486231E+308
  For i = 1 To n
    If auCust(i).Sales > dMax Then dMax = auCust(i).Sales
  Next i
  
  Debug.Print dMax
End Sub

[Kenneth Hobson]

I have not used it that way, thanks for the example shg.