Obtener el valor máximo y mínimo:
Public Sub FindMinMax(ByRef dArray() As Double, ByRef dLowVal As Double, ByRef dHighVal As Double)
Dim lIndex As Long
Dim dFirstValIdx As Double
Dim dLastValIdx As Double
Dim dActVal As Double
dFirstValIdx = LBound(dArray)
dLastValIdx = UBound(dArray)
dLowVal = dArray(dFirstValIdx)
dHighVal = dArray(dFirstValIdx)
For lIndex = dFirstValIdx To dLastValIdx
dActVal = dArray(lIndex)
If dActVal > dHighVal Then
dHighVal = dActVal
Else
If dActVal < dLowVal Then
dLowVal = dActVal
End If
End If
Next lIndex
End Sub
Saludos...
<hr noshade size=1><font color="#CC0000" face=Arial size=1>500 rutinas ordenadas por categorías: JS, ASP, PHP, Actionscript y VB!<br><font color="#000000" face=Arial size=1>Descargá <a href="http://www.webtutorial.com.ar/">ScriptMaster v1.0</a>[/CODE]