Hallo liebe Kollegen,
ich habe ein Problem mit einem einfachen VBS Code (übernommen von einem Beispiel - Hr. Knöpfel). Es soll einfach im Chart die Enter- und Exit-Basis dargestellt werden. Mit Enter-Basis klappt es auch gut, leider verstehe ich nicht warum es mit Exit-Basis nicht klappt. Wenn ich die Zahlen mit MsgBox ausschreiben lasse, wechseln die Werte "0" und die korrekte "exitBasis" ab. Woher kommt bitte die "0" her?
Danke für die Unterstützung
LG
giuseppe
Chart Import:
|
Quellcode
|
1
2
3
4
|
#_LoadDefs#
#_TradelisteEinbinden#
enter_exit()
|
Code (gespeichert under dem Namen: enter_exit):
|
Quellcode
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
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")
entBasis=tradeergebnis(akttradenr,"enterbasis")
extBasis=tradeergebnis(akttradenr,"exitbasis")
for i = startperiod to endperiod
if i+datenoffset <= AllePerioden Then
ergebnis(i+datenoffset)=0
if i = startperiod Then
ergebnis(i+datenoffset)=entBasis
'MsgBox("entBasis: " & entBasis)
end if
if i = endperiod Then
ergebnis(i+datenoffset)=extBasis
'MsgBox("extBasis: " & extBasis)
end if
end if
next
next
else
'wenn keine Tradeliste vorhanden, dann alles auf 0 setzen
for i=1 to alleperioden
ergebnis(i)=0
next
end if
|
keep going on...
Inv [7.6.7]