' Return the maximum value in an array of any type'' FIRST and LAST indicate which portion of the array' should be considered; they default to the first' and last element, respectively' If MAXINDEX is passed, it receives the index of the' maximum element in the arrayFunction ArrayMax(arr As Variant, Optional ByVal First As Variant, _ Optional ByVal Last As Variant, Optional MaxIndex As Long) As Variant Dim Index As Long If IsMissing(First) Then First = LBound(arr) If IsMissing(Last) Then Last = UBound(arr) MaxIndex = First ArrayMax = arr(MaxIndex) For Index = First + 1 To Last If ArrayMax < arr(Index) Then MaxIndex = Index ArrayMax = arr(MaxIndex) End If NextEnd Function
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
