Medianen af en talrække

Det kommer meget an paa hvordan dine data er organiseret.

Er det median for en raekke records du vil beregne eller er det for en raekke felter i den samme record?

Jeg har én talrække i en forespørgsel som jeg skal regne medianen ud på

ok jeg antager saa at hvert tal staar nedad i kolonnen i din forespoergsel
- saa kan du bruge denne kode:

Public Function MedianOfRst(RstName As String, fldName As String) As Double
    'This function will calculate the median of a recordset. The field must be a number value.
    Dim MedianTemp As Double
    Dim RstOrig As Recordset
    Set RstOrig = CurrentDb.OpenRecordset(RstName, dbOpenDynaset)
    RstOrig.Sort = fldName
    Dim RstSorted As Recordset
    Set RstSorted = RstOrig.OpenRecordset()
    If RstSorted.RecordCount Mod 2 = 0 Then
          RstSorted.AbsolutePosition = (RstSorted.RecordCount / 2) - 1
          MedianTemp = RstSorted.Fields(fldName).Value
          RstSorted.MoveNext
          MedianTemp = MedianTemp + RstSorted.Fields(fldName).Value
          MedianTemp = MedianTemp / 2
    Else
          RstSorted.AbsolutePosition = (RstSorted.RecordCount - 1) / 2
          MedianTemp = RstSorted.Fields(fldName).Value
    End If
    MedianOfRst = MedianTemp
End Function

Private Sub test()
    MsgBox MedianOfRst("Orders", "Freight")
End Sub

(kommer fra: http://www.fabalou.com/Access/Modules/recordset_median.asp )