title image


Smiley Re: kleinste Zahl von 3 Zahlen
Z.B. so (hat den Vorteil, auch bei 2 oder 27 Zahlen zu funktionieren):



Public Function Min(ParamArray p())

Dim V, I As Long

V = Null

For I = LBound(p) To UBound(p)

If IsNull(V) Or (p(I) < V) Then V = p(I)

Next I

Min = V

End Function





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: