VB-Tec.de Visual Basic - Technik, FAQ, Tricks, Beispiele

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