Hallo Arnold,
das kannst Du z.B. so lösen:
|
Quellcode
|
1
2
3
4
5
6
7
8
9
10
|
SetDaten Daten, "Datenfeld"
Dim myROC, i
if ScriptBerechneFormel("ROC(Datenreihe(#Datenfeld#), " & cstr(Perioden) & ", %)", myROC) then
For i= 1 to AllePerioden
Ergebnis(i)=myROC(i)
Next
end if
KillDaten "Datenfeld"
|