Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
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
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||