Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Function Median(Values() As Single) As Single
Dim i As Integer, min As Single, max As Single
min = Values(LBound(Values))
max = min
For i = LBound(Values) + 1 To UBound(Values)
If min > Values(i) Then min = Values(i)
If max < Values(i) Then max = Values(i)
Next i
Median = (min + max) / 2#
End Function
TextHolder = TextHolder & MyTable(fieldName) &","
^ ^