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


 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: