加權(quán)計(jì)算函數(shù)

5988143

論壇上很少說(shuō)到 加權(quán) 計(jì)算 方面的東東,我隨手撿了一個(gè)送上來(lái):

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

游客，如果您要查看本帖隱藏內(nèi)容請(qǐng)回復(fù)

5988143

1# 5988143

游客，如果您要查看本帖隱藏內(nèi)容請(qǐng)回復(fù)

5988143

游客，如果您要查看本帖隱藏內(nèi)容請(qǐng)回復(fù)

wuheng

學(xué)習(xí)學(xué)習(xí)中~~~~~~~~~~~~

7777777

ddddddddddddddd

asklove

收藏收藏

huangqinyong

汪版又有好東西發(fā)表,

kenlan

收藏收藏

chaojianan

謝謝樓主分享，
收藏了。

Henry D. Sy

謝謝分享