Enum zeiteinheit As Short
    stunde = 3600
    Minute = 60
    Sekunde = 1
End Enum
Class zeit
    Private m_std As Short
    Private m_min As Short
    Private m_sek As Short
    Sub New(ByVal std As Short, ByVal min As Short, ByVal sek As Short)
        m_std = std
        m_min = min
        m_sek = sek
    End Sub
    Function Anzeigen() As Integer
        WriteLine("Zeit:   {0,2}:{1,2}:{2,2}", m_std, m_min, m_std)
    End Function
    Sub Addieren(ByVal Anzahl As Short, ByVal einheit As zeiteinheit)
        Dim Sek As Integer
        Dim Ergebnis1 As Integer
        Dim Sekunden As Integer
        Ergebnis1 = Anzahl * einheit
        Sek = zusekunden(m_std, m_min, m_sek)
        Sekunden = Sek + Ergebnis1
        zuZeit(Sekunden)
    End Sub
    Public Function zusekunden(ByVal istunde As Short, ByVal iMinute As Short, _
      ByVal isekunde As Short) As Integer
        Dim Ergebnis As Integer
        istunde = m_std * zeiteinheit.stunde
        iMinute = m_min * zeiteinheit.Minute
        isekunde = m_sek * zeiteinheit.Sekunde
        Ergebnis = istunde + iMinute + isekunde
        Return (Ergebnis)
    End Function
    Public Function zuZeit(ByVal Sekunden As Integer) As Integer
        m_sek = Sekunden Mod 60
        m_min = (Sekunden \ 60) Mod 60
        m_std = Sekunden \ 60 * 60
    End Function
End Class
 
Module abc
 
    Sub Main()
        Dim z = New zeit(10, 24, 36)
        z.Anzeigen()
        z.Addieren(50, zeiteinheit.Minute)
        ReadLine()
        z.Anzeigen()
        z.Addieren(135, zeiteinheit.Sekunde)
        z.Anzeigen()
        ReadLine()
    End Sub
End Module