设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 3955|回复: 6

[模块/函数] 【Access小品】入乡随俗 -- 中位数函数示例

[复制链接]
发表于 2015-7-24 17:23:43 | 显示全部楼层 |阅读模式
  版友羽竹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


示例:

视图:


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

本帖被以下淘专辑推荐:

点击这里给我发消息

发表于 2015-7-24 20:06:42 | 显示全部楼层
学习了
回复

使用道具 举报

发表于 2015-7-25 08:25:55 | 显示全部楼层
什么是中位数呢?所谓中位数就是一组数据排序后处于中间位置的那个数。
发表于 2015-7-25 08:26:54 | 显示全部楼层
谢谢分享
回复

使用道具 举报

发表于 2016-8-14 17:31:02 | 显示全部楼层
outlook有没有录制宏之类的功能呢
发表于 2016-8-14 17:31:18 | 显示全部楼层
outlook有没有录制宏之类的功能呢
发表于 2016-8-20 11:05:00 | 显示全部楼层
已经下载学习
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 05:13 , Processed in 0.098708 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表