INVESTOX-Forum

Quellcode

dim i	
dim aktTradeNr
dim startperiod
dim endperiod
dim wert
dim datum
dim TradeStartdatum
dim DatenOffset

if tradeanzahl>0 then
	'Zuerst ermitteln, welcher Offset in den Perioden von
	'Tradeliste und Chartdaten besteht
	getdatum datum
	TradeStartdatum=tradeergebnis(1,"startdate")
	Startperiod=tradeergebnis(1,"startperiod")
	for i=1 to alleperioden
		if datum(i)>=TradeStartdatum then
			DatenOffset=i-Startperiod
			exit for
		end if			
	next 
	' Jetzt das gewünschte Ergebnis kopieren
	for aktTradeNr = 1 to tradeanzahl
		startperiod=tradeergebnis(akttradenr,"startperiod")
		endperiod=tradeergebnis(akttradenr,"endperiod")
			wert=tradeergebnis(akttradenr,"enterbasis")
		for i = startperiod to endperiod
			if i+datenoffset <= AllePerioden then
				ergebnis(i+datenoffset)=wert
			end if
		next
	next
else
	'Ohne Tradeliste: Alles auf 0 setzen
	for i=1 to alleperioden
		ergebnis(i)=0
	next
end if