I'm not sure what this is even used for. There are clsTime 'instances' all over the place, but never really used.
Public Class clsTime
Private Shared mInstance As clsTime
Private Shared mBeginTime As Date
Private Shared mEndTime As Date
'private new constructor
Private Sub New()
Diagnostics.Debug.Write("Creating clsTime singleton at: " & Now.ToLongTimeString & vbCrLf)
End Sub
'public function for creating/referencing clsTime object
Public Shared Function GetTimeInstance() As clsTime
If mInstance Is Nothing Then
mInstance = New clsTime
Else
Diagnostics.Debug.Write("clsTime singleton requested at: " & Now.ToLongTimeString & vbCrLf)
End If
Return mInstance
End Function
Public Sub SetTimeInterval(ByVal BeginTime As Date, ByVal EndTime As Date)
mBeginTime = BeginTime
mEndTime = EndTime
End Sub
Public Shared Property BeginTime() As Date
Get
Return mBeginTime
End Get
Set(ByVal Value As Date)
mBeginTime = Value
End Set
End Property
Public Shared Property EndTime() As Date
Get
Return mEndTime
End Get
Set(ByVal Value As Date)
mEndTime = Value
End Set
End Property
End Class