배열중 가장 큰 숫자 리턴 / ASP MAX 숫자 / 숫자 가장큰값 리턴 / ASP 숫자 배열

리스트 형식으로 가져온 DB 결과값을 구분자에 따라 select 값을 나눠서 웹에 출력하다보니

row중 max 값을 가져와야 할 케이스가 있었다. Ex) 헤밍웨이 24줄, 기욤뮈소 21줄 > 21 count 필요

   :: 1. 배열변수 maxRow에 비교를 원하는 숫자를 작성

   :: 2. maxRow를 넣어 함수 MaxArray를 호출

   :: 3. ReturnMax으로 max값 return

<%

'***********************************************
 'Max Row 세팅
 Dim maxRow
 maxRow = Array(24,21)

 Function MaxArray(ByRef TheArray)
      Dim i, Max
      Max = 0
  
      For i = 0 To UBound(TheArray)
           If TheArray(i) > TheArray(Max) Then
                Max = i
           End If
      Next
      MaxArray = TheArray(Max)
 End Function
 ReturnMax   = MaxArray(maxRow)

%>