Hallo zusammen,
ich habe verschiedene Funktionen, die auf Arrays angewendet werden sollen, z.B. Mittelwert eines Arrays ermitteln und so weiter. Wie kann ich nun den Namen eines Arrays dieser Funktion übergeben, damit die Funktion auch weiß, auf welches Array sie angewendet werden soll?
Beispiel:
sub main()
Dim Tageswerte(31) As Double
...
Monatsdurchschnitt = ArrayMittelwert("Tageswerte")
End Sub
Function ArrayMittelwert(Arrayname)
Anzahl=0
Summe=0
For Zaehler = 0 to ubound(Arrayname) Hier ist natürlich das Array gemeint, dessen Name als Parameter übergeben wurde
If Arrayname(Zaehler)<>Null then
Anzahl=Anzahl+1
Summe=Summe+Arrayname(Zaehler)
End if
Next Zaehler
ArrayMittelwert = Summe/Anzahl
End Function
Danke im Voraus,
Sarek
ich habe verschiedene Funktionen, die auf Arrays angewendet werden sollen, z.B. Mittelwert eines Arrays ermitteln und so weiter. Wie kann ich nun den Namen eines Arrays dieser Funktion übergeben, damit die Funktion auch weiß, auf welches Array sie angewendet werden soll?
Beispiel:
sub main()
Dim Tageswerte(31) As Double
...
Monatsdurchschnitt = ArrayMittelwert("Tageswerte")
End Sub
Function ArrayMittelwert(Arrayname)
Anzahl=0
Summe=0
For Zaehler = 0 to ubound(Arrayname) Hier ist natürlich das Array gemeint, dessen Name als Parameter übergeben wurde
If Arrayname(Zaehler)<>Null then
Anzahl=Anzahl+1
Summe=Summe+Arrayname(Zaehler)
End if
Next Zaehler
ArrayMittelwert = Summe/Anzahl
End Function
Danke im Voraus,
Sarek