Private dStart As Date
    Private dEnde As Date
    Private Sub dtpDatum_ValueChanged(sender As Object, e As EventArgs) Handles _
      dtpDatum.ValueChanged
        'Tagesschicht setzen
        dStart = New Date(dtpBeginn.Value.Year, dtpBeginn.Value.Month, _
          dtpBeginn.Value.Day, 7, 0, 0)
        dEnde = New Date(dtpEnde.Value.Year, dtpEnde.Value.Month, _
        dtpEnde.Value.Day, 16, 0, 0)
        setze_Start_Ende(dStart, dEnde)
    End Sub
 
    Private Sub setze_Start_Ende(ByVal d1 As Date, ByVal d2 As Date)
        dtpBeginn.Value = d1
        dtpEnde.Value = d2
    End Sub

  Private Sub btnUebernehmen_Click(sender As Object, e As EventArgs) Handles _
      btnUebernehmen.Click
 
        If dtpBeginn.Value = dtpEnde.Value Or dtpBeginn.Value > _
          dtpEnde.Value Then
            MessageBox.Show("Kontrollieren Sie bitte Ihre Zeiten!", "Hinweis:")
            Exit Sub
        End If
        _Arbeitszeit_berechnen()
 
    End Sub
 
    Private Sub _Arbeitszeit_berechnen()
        Dim anfang As DateTime = (dtpBeginn.Value) ' Datum ist 20.6.2014 
        ' Uhrzeit ist 8:00:00
        Dim ende As DateTime = (dtpEnde.Value)     ' Datum ist 20.6.2014 
        ' Uhrzeit ist 16:30:00
        Dim dauer As TimeSpan = ende - anfang
        Dim pause As TimeSpan = New TimeSpan(0, CInt(nud_Dauer.Value), 0)
        Dim soll As TimeSpan = New TimeSpan(0, 408, 0)
 
        Dim NewRow As DataRow = dt.NewRow
        NewRow("Tag") = dtpDatum.Value.ToShortDateString
        NewRow("Beginn") = dtpBeginn.Value.ToShortTimeString
        NewRow("Ende") = dtpEnde.Value.ToShortTimeString
        NewRow("Pause") = pause
        NewRow("Anwesend") = dauer
        NewRow("Soll-AZ") = soll
        NewRow("Ist-AZ") = dauer - pause
        NewRow("Gleitzeit") = (dauer - soll) - pause
        dt.Rows.Add(NewRow)
    End Sub