【Access小品】入乡随俗--中位数函数示例
时 间:2015-07-24 17:21:07
作 者:煮江品茶 ID:10802 城市:武汉
摘 要:【Access小品】入乡随俗--中位数函数示例
正 文:
版友羽竹w同志问如何分组查询求某字段的中位数。在分组查询中可以用到的统计函数有限,没有现成的求中位数的函数。如果直接编写查询语句会比较麻烦,所以解决此类问题,宜采用自定义函数的方法。
除了SQL中有域函数外,VBa也存在域函数。所谓“域”,也就是字段,所以域函数是针对字段的函数,一般用于二维表的纵向计算。VBa中的域函数具有显著的特征,其一是函数名以大写的D开头,其二是形参依次为字段名、表名、条件。
求某字段的中位数的函数,实际上就是一种域函数。所以编写这类自定义函数时,我们可以入乡随俗,按照系统域函数的特点进行编写。这样处理的好处是,可以使其他程序人员快速的理解和使用。
什么是中位数呢?所谓中位数就是一组数据排序后处于中间位置的那个数。当这组数据的个数是奇数时,这不难处理。当个数为偶数时,则需要取中间两数的平均值。明白了这个概念,编写一个自定义函数就不困难了。我们可以写成如下:
Public Function DMedian(ByVal fieldname As String, ByVal tbname As String, ByVal wh As String) As Double
'功能:返回中位数
'参数:fieldname -- 求中位数的字段名称
' tbname -- 表或查询名称
' wh -- 筛选条件
Dim rs As New ADODB.Recordset
Dim ssql As String
Dim i As Long
Dim cnt As Long
Dim d As Double
ssql = "select " & fieldname & " from " & tbname & " where " & wh & " order by " & fieldname
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
cnt = rs.RecordCount
If cnt Mod 2 = 0 Then
'记录条数为偶数取中间两个数字的平均数
i = Int(cnt / 2)
rs.Move i - 1
d = rs.Fields(fieldname).Value
rs.MoveNext
d = d + rs.Fields(fieldname).Value
d = d / 2
Else
'记录条数为奇数取中间数字
i = Int(cnt / 2) + 1
rs.Move i - 1
d = rs.Fields(fieldname).Value
End If
rs.Close: Set rs = Nothing
DMedian = d
End Function
示例:点击下载
视图:
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)