Das ist in der Tat der allereinfachste Fall:
Jetzt werden Break-Even-Trades mit G/V genau 0 verworfen. Man kann noch über eine minimale Schwelle nachdenken, ab der Trades überhaupt beachtet werden sollen, da man nur in seltenen Fällen auf eine glatte 0 kommt. Da sind die gleichen semantischen Fragen zu klären, insbesondere tendiere ich eher für die Sicht eines Minimal-Schwellen-Trades als Verlierer, da er ja immer noch nichtentlohntes Risiko hatte und Zeit kostete. Die Minimal-Schwelle kann also durchaus sogar einigermaßen hoch sein.
Quellcode
- Option Explicit
- Function GreatestSequence(Area As Range, MinMax As Integer) As Integer
- Dim CurrentSequence, Result As Integer
- Dim Cell As Range
- If MinMax <> -1 And MinMax <> 1 Then
- Error 1
- Else
- CurrentSequence = 0
- Result = 0
- For Each Cell In Area.Cells
- If Sgn(Cell.Value) = MinMax Then
- CurrentSequence = CurrentSequence + 1
- Else
- If Sgn(Cell.Value) <> 0 Then ' ignore break even only trades without counting
- If CurrentSequence > Result Then Result = CurrentSequence
- CurrentSequence = 0
- End If
- End If
- Next Cell
- If CurrentSequence > Result Then Result = CurrentSequence
- GreatestSequence = Result
- End If
- End Function