Public Class co_TimerInterface
 
#Region "Deklaration"
    Private StartZeitpunkt As Date
    Private EndZeitpunkt As Date
    Private JetztZeitpunkt As TimeSpan = Nothing
    Private ZeitSpanne As String = ""
#End Region
 
    Public Sub ZeitStoppenStarten()
        Try
            StartZeitpunkt = Now
        Catch ex As Exception
        End Try
    End Sub
 
    Public Function ZeitStoppenBeenden(ByVal Beschreibungstext As String, ByVal _
      DebugWriteLineAusgabe As Boolean) As TimeSpan
        Try
            EndZeitpunkt = Now
            JetztZeitpunkt = (EndZeitpunkt.Subtract(StartZeitpunkt))
            If DebugWriteLineAusgabe = True Then
                Debug.WriteLine(" -- cup -- " & Beschreibungstext & " --" & _
                  "Sekunden Total: " & JetztZeitpunkt.TotalSeconds.ToString)
            End If
            Return JetztZeitpunkt
        Catch ex As Exception
        End Try
    End Function
 
    Public Function ZeitStoppenAktuellerWert(ByVal Beschreibungstext As String, _
      ByVal DebugWriteLineAusgabe As Boolean) As TimeSpan
        Try
            Return JetztZeitpunkt
            If DebugWriteLineAusgabe = True Then
                Debug.WriteLine(Beschreibungstext & " -- Sekunden Total: " & _
                  JetztZeitpunkt.TotalSeconds.ToString & " -- Millisekunden" & _
                  "Total: " & JetztZeitpunkt.TotalMilliseconds.ToString & " --" & _
                  "Minuten Total: " & JetztZeitpunkt.TotalMinutes.ToString & "" & _
                  "-- Stunden Total: " & JetztZeitpunkt.TotalHours.ToString)
            End If
        Catch ex As Exception
        End Try
    End Function
 
End Class