reports mit standardabweichungen erstellen

[Zimmi]

Hallo,

Ziel ist es einen Report zu erstellen, die auf Grund einer Zeitspanne neben der durchschnittlichen Zeit zusätzlich die Standard-Abweichung beinhaltet.

Hat/Kennt da jemand ein Beispiel, wo dies realisiert ist

Schon mal vielen Dank im voraus ...
... Zimmi

[eknori]

yoo, da hab ich doch was ( ist aber nicht auf meinem Mist gewachsen )


Function StdDeviation(Src1 As Variant) As Variant
S1 = ConvertToNumberArray(Src1)
elem = Ubound(S1)
Forall numv In S1
sum = sum + numv
End Forall
mean = Round((sum / elem), 2)
Forall numv In S1
sumSquared = sumSquared + ((numv - mean) ^ 2)
End Forall
StdDeviation = Round(Cdbl(Sqr(sumSquared / ( elem - 1))), 2)
End Function


Function ConvertToNumberArray(Src1 As Variant) As Variant
S1 = SetArray(Src1)
Dim R1
ub1 = Ubound(S1)
dt1 = Datatype(S1(0))
If dt1 < V_STRING Then
R1 = S1
Else
Redim R1(ub1)
For i = Lbound(S1) To ub1
R1(i) = Cdbl(S1(i))
Next
End If
ConvertToNumberArray = R1
End Function

eknori

[Zimmi]

Hi eknori,

Danke schon mal, hab's mir bereits angesehen ...
... dabei ist mir aufgefallen, dass noch eine Funktion fehlt.

Function ConvertToNumberArray(Src1 As Variant) As Variant
S1 = SetArray(Src1)    '<---- diese Funktion fehlt noch
Dim R1

Kannst du mir diese Funktion noch liefern
Wäre prima und vielen Dank schon mal

von Zimmi

[eknori]

Hallo Zimmi,

habs leider auch nicht vollständiger ( hier der Original Link: http://searchdomino.techtarget.com/tip/1,289483,sid4_gci490215,00.html )
Aber das sollte sich umgehen lassen, wenn man S1 "manuell" besetzt

S1(i%) = SRC1(i%)  mit i% = 0 ... n

eknori

[Zimmi]

Hi eknori,

prima und Danke für den Link.  
Hat zwar nicht ganz funktioniert, aber ein Suche auf der Seite hat zum Erfolg geführt ...

Zimmi