Dim D As Date = DateFrom.Date.AddDays(i)
            Dim anfang As Date
            Dim ende As Date
            Dim dauer As Long
            '-----------------------------------------------------------------
 
            anfang = D.Add(New TimeSpan(7, 30, 0))
            ende = D.Add(New TimeSpan(16, 0, 0))
            dauer = CLng(DateDiff("n", anfang, ende))
            Dim pause As Integer = 45
            Dim soll As Integer = 408
 
            '-----------------------------------------------------------------
            'Abfrage ob Datum schon vorhanden ist
            If dt.Select("Tag = '" & D & "'").Count = 0 Then
 
                Dim NewRow As DataRow = dt.NewRow
                NewRow("ATag") = D.ToString("ddd")
                NewRow("Tag") = D
                If D.DayOfWeek = DayOfWeek.Saturday Or D.DayOfWeek = _
                  DayOfWeek.Sunday _
                  Then
 
                    NewRow("Beginn") = D.Add(New TimeSpan(0, 0, 0))
                    NewRow("Ende") = D.Add(New TimeSpan(0, 0, 0))
                    NewRow("Pause") = 0
                    NewRow("Anwesend") = 0
                    NewRow("SollAZ") = 0
                    NewRow("IstAZ") = 0
                    NewRow("Gleitzeit") = 0
                    NewRow("Bemerkung") = "WE"
 
                Else
 
                    NewRow("Beginn") = D.Add(New TimeSpan(7, 30, 0))
                    NewRow("Ende") = D.Add(New TimeSpan(16, 0, 0))
                    NewRow("Pause") = pause
                    NewRow("Anwesend") = dauer
                    NewRow("SollAZ") = soll
                    NewRow("IstAZ") = dauer - pause
                    NewRow("Gleitzeit") = (dauer - soll) - pause
                    NewRow("Bemerkung") = "Anwesend"
                End If
 
                dt.Rows.Add(NewRow)
            End If
 
        Next