' Definitions Bereich
Dim Schaltzeit(5, 2) ' Schaltzeit(,1) enthält eine StartZeit, Schaltzeit(,2) 
' die EndZeit
 
.
.
.
 
 
' Zeiteingabe
Private Sub 
 
End sub
 
 
' Test
Private Sub ZeitBereichTest(ByVal StartTime As String, ByVal EndTime As String)
 
        Dim TestEin As TimeSpan = TimeSpan.Parse(StartTime)
        Dim TestAus As TimeSpan = TimeSpan.Parse(EndTime)
 
        For Index As Integer = 1 To 5
 
            ' Prüfen ob eine EIN Zeit in einem vergebenen Bereich liegt
            ' Bedingung: TestEin > EinAlt UND TestEin < AusAlt
            If TestEin > Schaltzeit(Index, 1) And TestEin < Schaltzeit( _
              Index, 2) Then
 
                ' Fehlermeldung ausgeben
 
            End If
 
            ' Prüfen ob eine AUS Zeit in einem vergebenen Bereich liegt
            ' Bedingung: TestAus > EinAlt UND TestAus < AusAlt
            If TestAus > Schaltzeit(Index, 1) And TestAus < Schaltzeit( _
              Index, 2) Then
 
                ' Fehlermeldung ausgeben
 
            End If
        Next
 
 
End Sub

'
'///
'
Es gibt keine dummen Fragen. Dumm ist nur der, der nicht fragt sondern dumme Antworten gibt!