Dim d As Date = Date.Now
      Dim dw As Integer = d.DayOfWeek
 
      If (dw = 1) And (d.Hour < 8) Then
         'noch Montag
         NextDate = New Date(d.Year, d.Month, d.Day, 8, 0, 0)
      ElseIf ((dw = 3) And (d.Hour >= 8)) Or _
             (dw > 3) Then
         'ab Mi 08:00:00 auch Montag
         Dim Ts As New TimeSpan(8 - dw, 0, 0, 0)
         d = d.Add(Ts)
         NextDate = New Date(d.Year, d.Month, d.Day, 8, 0, 0)
      Else
         'Mittwoch
         Dim Ts As New TimeSpan(3 - dw, 0, 0, 0)
         d = d.Add(Ts)
         NextDate = New Date(d.Year, d.Month, d.Day, 8, 0, 0)
      End If
   End Sub
 
   Private Sub ShowNextDate()
 
      Dim d As Date = Date.Now
 
      Label1.Text = NextDate.ToString("ddd dd.MM.yyyy HH:mm:ss")
      Dim Ts As TimeSpan = NextDate.Subtract(d)
      Label2.Text = Ts.Days.ToString & " Tage " & Ts.Hours.ToString("00") & ":" _
        & _
                                                  Ts.Minutes.ToString("00") & _
                                                  ":" & _
                                                  Ts.Seconds.ToString("00")