Nejkratší hodnota v poli |
![]() |
Funkce: 'Parametry FIRST a LAST indikují, která část pole se zpracuje. 'Defaultně je to první a poslední element. 'Pokud je zadána proměnná pro SHORTESTINDEX, je vrácena 'hodnota indexu nejdelšího elementu. Function ArrShortestItem(arr As Variant, _ Optional ByVal First As Variant, _ Optional ByVal Last As Variant, _ Optional ShortestIndex As Long) As Variant Dim index As Long Dim minLength As Long If IsMissing(First) Then First = LBound(arr) If IsMissing(Last) Then Last = UBound(arr) ArrShortestItem = arr(First) minLength = Len(ArrLongestItem) ShortestIndex = First For index = First + 1 To Last If minLength > Len(arr(index)) Then ArrShortestItem = arr(index) minLength = Len(ArrShortestItem) ShortestIndex = index End If Next End Function |
![]() |
Autor: The Bozena |