Undgå decimaler

brug integer (heltal)

Gør den ikke også det ?

Function Minimum(ParamArray FieldArray() As Variant)
  ' Declare the two local variables.
  Dim I As Integer
  Dim currentVal As Variant

  ' Set the variable currentVal equal to the array of values.
  currentVal = FieldArray(0)

  ' Cycle through each value from the row to find the smallest.
  For I = 0 To UBound(FieldArray)
      If FieldArray(I) < currentVal Then
        currentVal = FieldArray(I)
      End If
  Next I

  ' Return the minimum value found.
  Minimum = currentVal

End Function

Hvis jeg bruger den her er der ikke noget problem ?

Public Function Average(ParamArray pArray() As Variant) As Single
Dim I As Double
Dim counter As Double
Dim sum As Double
  For I = 0 To UBound(pArray)
    If Len(pArray(I)) > 0 Then
      sum = sum + pArray(I)
      counter = counter + 1
    End If
  Next I
  If counter > 0 Then
    Average = sum / counter
  Else
    Average = 0
  End If
 
End Function

Her kan jeg vælge antal decimaler
Gennemsnit: Average([MPa1];[MPa2];[MPa3];[MPa4];[MPa5];[MPa6])
Her kan jeg ikke
MaksMPa: Maximum([MPa1];[MPa2];[MPa3];[MPa4];[MPa5];[MPa6])
Forstå det ikke lige ??

Ups jeg havde glemt  As Single