使用Group By时计算Access 2007中的中位数的最佳方法

Question

我有一张表，其中包含一本书，然后有关于该书的多个价格（这是一个高度简化的样本）：

ID  BOOK    PRICE
1   BOOK1   10
2   BOOK1   15
3   BOOK1   12
4   BOOK2   8
5   BOOK2   2

我很容易计算平均值，但必须有一个很好的方法来计算中位数？

当前的SQL：

SELECT DISTINCTROW Books.BOOK, Avg(Books.PRICE) AS [Avg Of PRICE]
FROM Books
GROUP BY Books.BOOK;

结果：

BOOK    Avg Of PRICE
BOOK1   12.3333333333333
BOOK2   5

Answer 1

Jet SQL中没有中位数，除非它已在2007年添加，但这里有一个如何获得一个的想法。你会需要 ...

一些SQL ......

SELECT Statistics.Month, Sum(([SentTo])) AS [Sum Sent], fMedian("Statistics","Month",[Month],"SentTo") AS [Median Sent]
FROM Statistics
GROUP BY Statistics.Month;

和用户定义函数（UDF）。

Function fMedian(SQLOrTable, GroupFieldName, GroupFieldValue, MedianFieldName)
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs1 = db.OpenRecordset(SQLOrTable, dbOpenDynaset)

If IsDate(GroupFieldValue) Then
    GroupFieldValue = "#" & GroupFieldValue & "#"
ElseIf Not IsNumeric(GroupFieldValue) Then
    GroupFieldValue = "'" & Replace(GroupFieldValue, "'", "''") & "'"
End If

rs1.Filter = GroupFieldName & "=" & GroupFieldValue
rs1.Sort = MedianFieldName

Set rs = rs1.OpenRecordset()
rs.Move (rs.RecordCount / 2)

If rs.RecordCount Mod 2 = 0 Then
    varMedian1 = rs.Fields(MedianFieldName)
    rs.MoveNext
    fMedian = (varMedian1 + rs.Fields(MedianFieldName)) / 2
Else
    fMedian = rs.Fields(MedianFieldName)
End If

End Function

来自：LessThanDot Wiki

Answer 2

可以使用常规查询和没有VBA在MS Access中计算中位数。中位数是第50百分位数。因此，通常创建选择查询;然后进入SQL视图并在select keyword之后包含“Top 50％”。排名上升50％;降序排名前50％。然后找到最大底部百分比结果集和最小百分比结果集。这两者的平均值是中位数。使用“前50％”时，请确保查询中的条件特定于将从中计算中位数的结果集。

Answer 3

没有内置函数 - 因此您必须使用代码循环记录并自己计算中值。

使用google - 那里有很多代码示例

Answer 4

我试过使用非VBA方法，它们都有些限制，无法为更大的数据集提供最准确的结果。对于前50％Asc（Max）和Top 50％Desc（Min）方法，Access具有限制，并且在按升序排序时省略单个值。对于舍入，Access使用银行家四舍五入，因此根据值本身并不总是四舍五入，如果要向上或向下舍入，则需要添加+ -00.00的尾随值。我还尝试了另一种没有VBA的Rank（）方法，Access无法对具有至少一对相同值的值进行排序。由于上述原因，我强烈建议坚持在VBA中创建自定义功能。