Imports System.Console
 
Enum Zeiteinheit As Short
    Sekunde = 1
    Minute = 60
    Stunde = 3600
End Enum
 
Class Zeit
    Private m_std As Short
    Private m_min As Short
    Private m_sek As Short
    Sub Anzeigen()
        WriteLine("Zeit:    {0}:{1}:{2}", m_std, m_min, m_sek)
    End Sub
    Sub Addieren(ByVal Anzahl As Short, ByVal Einheit As Zeiteinheit)
 
    End Sub
    Function zuSekunden() As Integer
        zuSekunden = CInt((3600 * m_std) + (60 * m_min) + m_sek)
    End Function
    Private 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 abc
    Sub Main()
        Dim z As New Zeit(10, 24, 36)
        z.Anzeigen()
        z.Addieren(50, Zeiteinheit.Minute)
        z.Anzeigen()
        z.Addieren(135, Zeiteinheit.Sekunde)
        z.Anzeigen()
        ReadLine()
    End Sub
End Module