Nejnižší hodnota pole
'Parametry FIRST a LAST indikují, kterou část pole zpracovat.
'Pokud nejsou zadány, bere se celé pole.
'Pokud je vložena proměnná pro MININDEX,
'funkce jí přiřadí hodnotu indexu největšího elementu
Function ArrayMin(arr As Variant, Optional ByVal First As Variant, _
Optional ByVal Last As Variant, _
Optional MinIndex As Long) As Variant
Dim Index As Long
If
IsMissing(First) Then First = LBound(arr)
If IsMissing(Last)
Then Last = UBound(arr)
ArrayMin = arr(First)
For Index = First + 1 To Last
If ArrayMin < arr(Index) Then
ArrayMin = arr(Index)
MinIndex = Index
End
If
Next
End Function