Dim dt As DataTable = DataSet1.Details1
        '##########
 
        Dim currentDate As DateTime = StartDate
        Dim currentEnde As DateTime = EndDate
 
        Dim delta As Double = nuddelta.Value
        Dim hCount As Integer = nudhcount.Value
 
        For i = 0 To hCount Step delta
            'prüfen
            'Pruefe Vorhandensein der Uhrzeit:
            Dim strPruefstring = currentDate.AddHours(i).ToString("HH:mm")
            If pruefe_Uhrzeit(strPruefstring) = False Then
 
                Fehler_Uhrzeit(strPruefstring)
            Else
                Dim NewRow As DataRow = dt.NewRow
                NewRow("Tagesdatum") = currentDate.ToString("dd.MM.yyyy HH:mm")
                NewRow("Uhrzeit") = currentDate.AddHours(i).ToString("HH:mm")
                NewRow("Kommentar") = ">"
 
                dt.Rows.Add(NewRow)
            End If
        Next

Private Function pruefe_Uhrzeit(ByVal strPruefstring As String) As Boolean
        Dim Anz = (From Eintrag In DataSet1.Details1
                   Where Eintrag.RowState <> DataRowState.Deleted AndAlso _
                     Eintrag.Uhrzeit.ToShortTimeString = strPruefstring.ToString
                   Select Eintrag).Count
 
        If Anz > 0 Then Return False
 
        Return True
    End Function