Visual Basic - Technik, FAQ, Tricks, Beispiele

Home / Allgemein / Mathe / MinMax

Minimum und Maximum bestimmen

Impressum
Kontakt
DSVGO
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