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