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

EALA FREYA FRESENA

EALA FREYA FRESENA

Private Function OsterSonntag(ByVal Jahr As Integer) As Date
        ' Function OsterSonntag gibt das Datum für den
        ' Ostersonntag des in Jahr übergebenen Jahres zurück.
        Dim m As Integer
        Dim n As Integer
 
        Dim a As Integer
        Dim b As Integer
        Dim c As Integer
        Dim d As Integer
        Dim e As Integer
 
        Dim Tag As Integer
        Dim Monat As Integer
 
        m = 23
        n = 3
 
        If Jahr > 1799 Then
            n = 4
        End If
 
        If Jahr > 1899 Then
            n += 1
            m = 24
        End If
 
        If Jahr > 2099 Then
            n += 1
        End If
 
        a = Jahr Mod 19
        b = Jahr Mod 4
        c = Jahr Mod 7
        d = ((a * 19) + m) Mod 30
        e = ((b * 2) + (c * 4) + (d * 6) + n) Mod 7
        Tag = d + e + 22
 
        If Tag > 31 Then
            Tag -= 31
            If (Tag = 26) Or ((Tag = 25) And (d = 28) And (a > 10)) Then
                Tag -= 7
            End If
            Monat = 4
        Else
            Monat = 3
        End If
 
        Return DateSerial(Jahr, Monat, Tag)
    End Function