Public Class zeit
    Enum Zeiteinheit As Integer
        Stunde = 1
        Minute = 60
        Sekunde = 3600
    End Enum
    Private mTime As DateTime
    Public Sub New(ByVal Stunde As Short, _
  ByVal Minute As Short, _
  ByVal Sekunde As Short)
        mTime = New DateTime(1, 1, 1, Stunde, Minute, Sekunde)
    End Sub
    Public Sub Addieren(ByVal Anzahl As Short, ByVal Einheit As Zeiteinheit)
        Select Case Einheit
            Case Zeiteinheit.Sekunde
                mTime = mTime.AddSeconds(Anzahl)
            Case Zeiteinheit.Minute
                mTime = mTime.AddMinutes(Anzahl)
            Case Zeiteinheit.Stunde
                mTime = mTime.AddHours(Anzahl)
        End Select
    End Sub
    Sub Anzeigen()
        Console.WriteLine("Zeit: {0} ", mTime.ToLongTimeString)
        Console.ReadLine()
    End Sub
End Class

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus

Module Module1
    Sub Main()
        Dim zeitAnfang As New TimeSpan(10, 24, 36)
 
        Dim zeitEnde = zeitAnfang.Add(New TimeSpan(0, 50, 135))
 
        Console.WriteLine("{0}:{1}:{2}", Format(zeitEnde.Hours, "00"), Format( _
          zeitEnde.Minutes, "00"), Format(zeitEnde.Seconds, "00"))
 
        Console.ReadKey()
    End Sub
End Module

Dim gesamt As Integer
 
gesamt = std * 3600 + min * 60 + sec

gesamt += 135

std = gesamt \ 3600 ' Der '\' ist wichtig. Dadurch werden nachkommastellen 
' Abgeschnitten und man spart sich eine Umwandlung in Integer.
 
gesamt -= std * 3600
 
min = gesamt \ 60
 
gesamt -= min * 60
 
sec = gesamt

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008