Visual Basic - Technik, FAQ, Tricks, Beispiele

Home / Allgemein / Mathe / MinMax

Minimum und Maximum bestimmen

Die folgenden Funktionen bestimmen das Minimum (bzw. Maximum) von beliebig vielen Werten, egal ob Zahlen oder Strings. So ist Min("Flo", "Kat", "Bsp", "Yes") = "Bsp", während Min(3, -5, 0, 9) = -5 ist.
'Minimum:
Public Function Min(ByVal Elem, ParamArray Elems())
  Dim i As Long
  
  For i = 0 To UBound(Elems)
    If Elems(i) < Elem Then Elem = Elems(i)
  Next i
  Min = Elem
End Function

'Maximum:
Public Function Max(ByVal Elem, ParamArray Elems())
  Dim i As Long
  
  For i = 0 To UBound(Elems)
    If Elems(i) > Elem Then Elem = Elems(i)
  Next i
  Max = Elem
End Function

© Jost Schwider, 12.05.2000-12.05.2000 - http://vb-tec.de/minmax.htm