Office中国论坛/Access中国论坛

标题: 加权计算函数 [打印本页]

作者: 5988143 时间: 2009-3-14 10:06
标题: 加权计算函数
論壇上很少說到加权计算方面的東東,我隨手撿了一個送上來:

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

作者: 5988143 时间: 2009-3-14 10:12
1# 5988143

作者: 5988143 时间: 2009-3-14 10:13

作者: wuheng 时间: 2009-3-14 11:11
学习学习中~~~~~~~~~~~~

作者: 7777777 时间: 2009-3-14 11:52
ddddddddddddddd

作者: asklove 时间: 2009-3-14 13:32
收藏收藏

作者: huangqinyong 时间: 2009-3-14 15:40
汪版又有好东西发表,

作者: kenlan 时间: 2009-3-14 18:28
收藏收藏

作者: chaojianan 时间: 2009-3-15 12:05
谢谢楼主分享，
收藏了。

作者: Henry D. Sy 时间: 2009-3-15 14:17
谢谢分享

作者: liuweisunjing 时间: 2009-5-4 22:46
多谢了.

作者: gaofei186 时间: 2009-5-5 07:41
看看

作者: yanwei82123300 时间: 2009-5-5 07:43
学习学习中

作者: xuwenning 时间: 2009-5-5 10:39
收藏
学习
谢谢

作者: glw 时间: 2009-5-16 10:09
学习

作者: yongli99 时间: 2009-5-16 22:36
谢谢分享

作者: luhao 时间: 2009-5-17 19:36
看look

作者: chenyingfengsx 时间: 2009-6-2 10:33
kankan

作者: jorcolin 时间: 2009-6-16 18:09
谢谢分享

作者: df 时间: 2009-6-16 19:54
谢谢分享

作者: 石三少 时间: 2009-6-17 11:14
来看看,正好要用到

作者: yuayua23 时间: 2009-7-10 12:42

作者: 真主 时间: 2009-7-15 02:13
众里寻她千百度....找到了我要的

作者: wangling 时间: 2009-7-18 01:56
access教程,access下载,access技巧,access培

作者: fnsmydyang 时间: 2009-7-20 19:58
好东东,顶一下.

作者: linag516 时间: 2009-7-21 09:30

作者: LoveSeiya 时间: 2009-8-15 17:25
看看学学

作者: 坡芽歌书 时间: 2009-8-15 17:42
dddddddddd

作者: sxgaobo 时间: 2009-8-15 19:42
DDDDDDDDDDDDDDD

作者: ryusukekenji 时间: 2009-8-23 15:46
学习学习

作者: xieanchu 时间: 2009-9-25 17:14
学习学习

作者: szyewj 时间: 2009-9-27 11:56
Query1

作者: alinker 时间: 2009-10-8 14:21
access和excel都可以用吧？

作者: wen123456 时间: 2009-10-17 21:15
好的好的，好

作者: pmx0001 时间: 2009-10-20 08:54
找这东西很久了

作者: yodong 时间: 2009-10-20 14:15
好用吗?

作者: benhh 时间: 2009-10-22 03:35
Thank you for sharing

作者: xryacc2 时间: 2009-10-25 14:39
看看是什么好东东。

作者: dbbygzy 时间: 2009-11-1 13:46
dddddddddddddd

作者: dbbygzy 时间: 2009-11-1 13:56
DDDDDDDDDDD

作者: hyz172 时间: 2009-11-5 19:32
谢谢楼主分享

作者: zzxgenius529 时间: 2009-12-23 18:37
谢谢LZ

作者: sxb2007 时间: 2009-12-23 19:40
收藏

作者: liaoqiang234 时间: 2010-1-1 11:37
谢谢分享

作者: kisssprite 时间: 2010-1-28 14:16
先学习争取早日出作品

作者: 付谦 时间: 2010-1-28 20:03
3# 5988143

作者: zhao__feng 时间: 2010-1-30 21:41
学习学习中~~~~~~~~~~~~

作者: lp2lp2 时间: 2010-1-30 23:30
xuexi

作者: luhao 时间: 2010-1-31 11:53
see

作者: c101 时间: 2010-1-31 13:14
谢谢分享

作者: hr0713 时间: 2010-2-11 10:06
谢谢

作者: zhengweb_0 时间: 2010-3-17 09:34
哈哈,看看

作者: gxm2322 时间: 2010-3-17 17:10
XXXXXXX

作者: bestluck 时间: 2010-5-3 22:11
学习来了

作者: xie62 时间: 2010-5-14 13:50
收藏了

作者: dbbygzy 时间: 2010-5-24 08:35
xuexi

作者: zyp 时间: 2010-5-24 10:11
多谢分享

作者: jiayinlb 时间: 2010-7-11 19:38
对来来说是新的

作者: powerhao 时间: 2011-4-23 00:18

作者: jingyu 时间: 2011-5-11 10:18
学习学习

作者: huangli0356 时间: 2012-10-12 23:39

作者: yanghua1900363 时间: 2012-10-13 09:49
多谢看看是怎么加权的

作者: pigbrain 时间: 2012-10-14 10:15
学习一下

作者: yanghua1900363 时间: 2012-10-14 16:14
本帖最后由 yanghua1900363 于 2012-10-14 16:24 编辑

多谢版主的分享！我在使用函数weightedMedianOfRst过程中，系统提示代码行“Set RstSorted = RstOrig.OpenRecordset()” 中“.OpenRecordset（）”方法或成员未找到。版主紧接着分享的代码中也有类似的用法，请问怎么解决？（我用的是access 2007）

作者: huangli0356 时间: 2012-11-9 14:56
如果有个实例更好了..支持写个实例扔上来..

作者: lin2003_lin 时间: 2012-11-9 20:58
学习

作者: 灰太郎 时间: 2013-3-16 22:43
jjjjjjjjjjjjjjjjj

作者: ljp518 时间: 2013-8-1 16:34
看看罗

作者: 馨语馨愿 时间: 2014-4-28 22:18
谢谢楼主分享

作者: 馨语馨愿 时间: 2014-4-28 22:19

5988143 发表于 2009-3-14 10:12
1# 5988143

**** 本内容被作者隐藏 ****

谢谢楼主分享

作者: zwp 时间: 2014-8-23 08:14
谢谢分享

作者: uncletse 时间: 2015-1-25 11:07
收藏收藏

作者: 764300778 时间: 2015-4-3 20:30
EEEE

作者: xzmingcx 时间: 2015-5-21 11:45
感谢

作者: xlb004 时间: 2017-5-7 07:31
，，，，，，，，，，，，一

作者: 洋务德雷 时间: 2017-5-9 20:50
看文字内容。。。

作者: 塔奇克马 时间: 2017-7-30 16:57
感谢分享
加权计算太多地方用到了

作者: aymi 时间: 2017-8-20 21:33

作者: zzf9008 时间: 2021-5-14 21:54
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)