Imports System.Console
Enum Zeiteinheit As Short
    Stunde = 1
    Minute = 60
    Sekunde = 3600
End Enum
Class Zeit
    Private m_std As Short = 0
    Private m_min As Short = 0
    Private m_sek As Short = 0
    Public Sub New(ByVal Stunde As Short, ByVal Minute As Short, ByVal Sekunden _
      As Short)
        m_std = Stunde
        m_min = Minute
        m_sek = Sekunden
    End Sub
 
    Private Property Str As Object
 
    Sub Anzeigen()
        WriteLine("Zeit: {0}:{1}:{2}", m_std, m_min, m_sek)
    End Sub
    Private Function zuSekunden() As Integer
        zuSekunden = CInt(m_std * 3600) + (m_min * 60) + (m_sek)
    End Function
    Sub Addieren(ByVal Anzahl As Short, ByVal Einheit As Zeiteinheit)
        Select Case Einheit
            Case Zeiteinheit.Sekunde
                m_sek += Anzahl
            Case Zeiteinheit.Minute
                m_min += Anzahl
            Case Zeiteinheit.Stunde
                m_std += Anzahl
        End Select
    End Sub
    Sub zuZeit(ByVal Sekunden As Integer)
        m_sek = Sekunden Mod 60
        m_min = (Sekunden \ 60) Mod 60
        m_std = Sekunden \ 60 * 60
    End Sub
 
End Class
Module Module1
    Sub Main()
        WriteLine()
        Dim z As New Zeit(10, 24, 36)
        z.Anzeigen()
        z.Addieren(55, Zeiteinheit.Minute)
        z.Anzeigen()
        z.Addieren(160, Zeiteinheit.Sekunde)
        z.Anzeigen()
    End Sub
End Module