设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 27203|回复: 79
打印 上一主题 下一主题

[模块/函数] 加权计算函数

[复制链接]
跳转到指定楼层
1#
发表于 2009-3-14 10:06:43 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
論壇上很少說到 加权 计算 方面的東東,我隨手撿了一個送上來:

Public Function WeightedMedianOfRst(RstName As String, fldName As String) As Double


     Dim MedianTemp As Double
     Dim ThisValue As Double
     Dim NumRecs As Long
     Dim RstOrig As Recordset
     Set RstOrig = CurrentDb.OpenRecordset(RstName, dbOpenDynaset)
     RstOrig.Sort = fldName
     Dim RstSorted As Recordset
     Dim RstFiltered As Recordset
     Set RstSorted = RstOrig.OpenRecordset()
     If RstSorted.RecordCount Mod 2 = 0 Then
          RstSorted.AbsolutePosition = (RstSorted.RecordCount / 2) - 1
          ThisValue = RstSorted.Fields(fldName).Value
          RstOrig.Filter = "[" & fldName & "] = " & ThisValue
          Set RstFiltered = RstOrig.OpenRecordset()
          MedianTemp = ThisValue * RstFiltered.RecordCount
          NumRecs = RstFiltered.RecordCount
          RstSorted.MoveNext
          ThisValue = RstSorted.Fields(fldName).Value
          RstOrig.Filter = "[" & fldName & "] = " & ThisValue
          Set RstFiltered = RstOrig.OpenRecordset()
          NumRecs = NumRecs + RstFiltered.RecordCount
          MedianTemp = MedianTemp + ThisValue * RstFiltered.RecordCount
          MedianTemp = MedianTemp / NumRecs
游客,如果您要查看本帖隐藏内容请回复
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2009-3-14 10:12:59 | 只看该作者
1# 5988143

游客,如果您要查看本帖隐藏内容请回复
3#
 楼主| 发表于 2009-3-14 10:13:49 | 只看该作者
游客,如果您要查看本帖隐藏内容请回复
4#
发表于 2009-3-14 11:11:03 | 只看该作者
学习学习中~~~~~~~~~~~~
5#
发表于 2009-3-14 11:52:35 | 只看该作者
ddddddddddddddd

评分

参与人数 1经验 -10 收起 理由
Henry D. Sy -10 恶意灌水

查看全部评分

6#
发表于 2009-3-14 13:32:33 | 只看该作者
收藏收藏
7#
发表于 2009-3-14 15:40:01 | 只看该作者
汪版又有好东西发表,
8#
发表于 2009-3-14 18:28:31 | 只看该作者
收藏收藏
9#
发表于 2009-3-15 12:05:58 | 只看该作者
谢谢楼主分享,
收藏了。
10#
发表于 2009-3-15 14:17:24 | 只看该作者
谢谢分享
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-1 06:57 , Processed in 0.091597 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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