title image


Smiley Tipp: Median berechnen
Das geht so:



Public Function Median(TblOrQryName, FldName) As Double

Dim DB As DAO.Database, RS As DAO.Recordset

Dim RCount As Long, x As Long, Offset As Long

Set DB = CurrentDb()

Set RS = DB.OpenRecordset("SELECT [" & FldName & _

"] FROM [" & TblOrQryName & "] WHERE [" & FldName & _

"] IS NOT NULL ORDER BY [" & FldName & "]", dbOpenSnapshot)

' Um Nullwerte bei der Berechnung mit zu berücksichtigen,

' den Ausdruck

' WHERE [" & fldName & "] IS NOT NULL

' entfernen!

' Die Berechnung gibt nur für numerische Felder Sinn!

With RS

If .RecordCount = 0 Then GoTo Ex

.MoveLast

RCount = .RecordCount

.MoveFirst

Offset = (RCount \ 2)

.Move Offset

x = CDbl(RS(FldName))

If RCount Mod 2 = 0 Then

.MoveNext

Median = (x + CDbl(RS(FldName))) / 2

Else

Median = x

End If

Ex:

On Error Resume Next

.Close

End With

DB.Close

End Function





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: