Thomas Risi Softwareentwicklung

Min / Max

Diese beiden Funktionen ermitteln das Minimum (kleinste Zahl), bzw. das Maximum (größte Zahl) in einem übergebenen Array vom Datentyp Double.

Option Explicit Private Function Min(Data() As Double) As Double Dim i As Long Min = Data(LBound(Data)) For i = LBound(Data) + 1 To UBound(Data) If Data(i) < Min Then Min = Data(i) Next i End Function Private Function Max(Data() As Double) As Double Dim i As Long Max = Data(LBound(Data)) For i = LBound(Data) + 1 To UBound(Data) If Data(i) > Max Then Max = Data(i) Next i End Function

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)