-
Notifications
You must be signed in to change notification settings - Fork 3
/
clsResult.cls
88 lines (71 loc) · 1.96 KB
/
clsResult.cls
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "clsResult"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'Purpose: This stores the result of running a simulation for Equity value N times
Option Explicit
Implements INameProvider
Private mdblEquity As Double
Private mdblRuin As Double
Private mdblMedianDrawdown As Double
Private mdblMedianProfit As Double
Private mdblMedianReturn As Double
Private mdblMedianReturnDD As Double
Private Function INameProvider_GetClassName() As String
INameProvider_GetClassName = "clsResult"
End Function
' Equity
Property Let equity(value As Double)
mdblEquity = value
End Property
Property Get equity() As Double
equity = mdblEquity
End Property
' Ruin
Property Let Ruin(value As Double)
mdblRuin = value
End Property
Property Get Ruin() As Double
Ruin = mdblRuin
End Property
' Median Drawdown
Property Let MedianDrawdown(value As Double)
mdblMedianDrawdown = value
End Property
Property Get MedianDrawdown() As Double
MedianDrawdown = mdblMedianDrawdown
End Property
' Median Profit
Property Let MedianProfit(value As Double)
mdblMedianProfit = value
End Property
Property Get MedianProfit() As Double
MedianProfit = mdblMedianProfit
End Property
' Median Return
Property Let MedianReturn(value As Double)
mdblMedianReturn = value
End Property
Property Get MedianReturn() As Double
MedianReturn = mdblMedianReturn
End Property
' Median Return Drawdown
Property Let MedianReturnDD(value As Double)
mdblMedianReturnDD = value
End Property
Property Get MedianReturnDD() As Double
MedianReturnDD = mdblMedianReturnDD
End Property
Private Sub Class_Initialize()
mdblEquity = 0
mdblRuin = 0
mdblMedianDrawdown = 0
mdblMedianProfit = 0
mdblMedianReturn = 0
mdblMedianReturnDD = 0
End Sub