Hallo,
kleines aber feines Problem..
wie bekomme ich es hin das wenn ts = 0h 0m 0s
in ein anderes Unterprogramm springt?
was frage ich am besten ab ?
hier der code...
1 | Private Sub Frühstückspause()
|
2 | Dim timeNow As Date = Date.Now
|
3 | Dim nextPause As Date = Date.Parse(My.Computer.Clock.LocalTime.Date & " 00:12")
|
4 | Dim tS As TimeSpan = timeNow - nextPause
|
5 |
|
6 | If Label3.Text = ("0h 0m 0s") Then
|
7 |
|
8 | Stop
|
9 |
|
10 | End If
|
11 |
|
12 | Label3.Text = "nächste Pause: " & String.Concat(tS.Hours.ToString(), "h ", tS.Minutes.ToString(), "m " & tS.Seconds.ToString(), "s")
|