Dim Restzeit As Integer = 480
    Dim Datum As Date
 
    For Each satz In Tabelle
      If satz.Datum > Datum Then
        Restzeit = 480
        Datum = satz.Datum
      End If
      Restzeit -= satz.Dauer
      satz.Restzeit = Restzeit
    Next

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
   Button1.Click
        Dim Restzeit As Integer = 480
        Dim Datum As Date
 
        For Each satz In AblageDB.Notizen
            If satz.ToDoEintrag > Datum Then
                Restzeit = 480
                Datum = satz.ToDoEintrag
            End If
            Restzeit -= satz.ToDoRestzeit
            satz.ToDoRestzeit = Restzeit
        Next
 
    End Sub

  Private Sub calc_Dauer()
        Dim Dauer_TotalMinuten = (dtp_Ende.Value - dtp_Start.Value).TotalMinutes
 
        If Dauer_TotalMinuten > nud_Dauer.Maximum Then nud_Dauer.Maximum = _
          CDec(Dauer_TotalMinuten) 'Control-Maximimum-Eigenschaft
        If Dauer_TotalMinuten < nud_Dauer.Minimum Then nud_Dauer.Minimum = CDec( _
        Dauer_TotalMinuten) 'Control-Maximimum-Eigenschaft
        nud_Dauer.Value = CDec(Dauer_TotalMinuten)
    End Sub

EALA FREYA FRESENA

Public Class Form1
 
    Dim dt As New DataTable
    Dim iBasiszeit As Integer = 480
    Dim iRestzeit As Integer = 0
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        dtErstellen()
        dgvEinstellen()
        cmbArtFuellen()
        cmbPrioritaetFuellen()
    End Sub
 
    Private Sub dgvEinstellen()
        With DataGridView1
            .DataSource = dt
            .RowsDefaultCellStyle.BackColor = Color.White
            .AlternatingRowsDefaultCellStyle.BackColor = Color.Azure
            .AllowUserToAddRows = False 'Die Zeilen werden per Code hinzugefügt
        End With
    End Sub
 
    Private Sub DTPsEinstellen()
        With dtpBeginn
            .Format = DateTimePickerFormat.Custom
            .CustomFormat = "HH:mm"
            .ShowUpDown = True
        End With
        With dtpEnde
            .Format = DateTimePickerFormat.Custom
            .CustomFormat = "HH:mm"
            .ShowUpDown = True
        End With
    End Sub
 
    Private Sub dtErstellen()
        dt.TableName = "Irgendwas"
 
        Dim cID As New DataColumn
        cID.DataType = System.Type.GetType("System.Int32")
        cID.AutoIncrement = True
        cID.ColumnName = "ID"
        dt.Columns.Add(cID)
        Dim pKey(1) As DataColumn
        pKey(1) = dt.Columns("ID")
        dt.PrimaryKey = pKey
 
        Dim cBeginn As New DataColumn
        cBeginn.DataType = System.Type.GetType("System.DateTime")
        cBeginn.ColumnName = "Beginn"
        dt.Columns.Add(cBeginn)
 
        Dim cEnde As New DataColumn
        cEnde.DataType = System.Type.GetType("System.DateTime")
        cEnde.ColumnName = "Ende"
        dt.Columns.Add(cEnde)
 
        Dim cArt As New DataColumn
        cArt.DataType = System.Type.GetType("System.String")
        cArt.ColumnName = "Art"
        dt.Columns.Add("Art")
 
        Dim cPrioritaet As New DataColumn
        cPrioritaet.DataType = System.Type.GetType("System.String")
        cPrioritaet.ColumnName = "Prioritaet"
        dt.Columns.Add("Prioritaet")
 
        Dim cDauer As New DataColumn
        cDauer.DataType = System.Type.GetType("System.Int32")
        cDauer.ColumnName = "Dauer"
        dt.Columns.Add(cDauer)
 
        Dim cRestzeit As New DataColumn
        cRestzeit.DataType = System.Type.GetType("System.Int32")
        cRestzeit.ColumnName = "Restzeit"
        dt.Columns.Add(cRestzeit)
 
    End Sub
 
    Private Sub cmbArtFuellen()
        With cmbArt
            .Items.Add("Aufgabe")
            .Items.Add("Irgendwas")
            .Items.Add("Nochwas")
        End With
    End Sub
    Private Sub cmbPrioritaetFuellen()
        With cmbPrioritaet
            .Items.Add("A")
            .Items.Add("B")
            .Items.Add("C")
        End With
    End Sub
 
    Private Sub btnUebernehmen_Click(sender As Object, e As EventArgs) Handles _
      btnUebernehmen.Click
 
        If cmbArt.Text = "" Then
            MessageBox.Show("Sie müssen erst noch eine Art auswählen!", _
              "Hinweis:")
            Exit Sub
        End If
        If cmbPrioritaet.Text = "" Then
            MessageBox.Show("Sie müssen erst noch die Priorität auswählen!", _
              "Hinweis:")
            Exit Sub
        End If
        If dtpBeginn.Value = dtpEnde.Value Or dtpBeginn.Value > _
          dtpEnde.Value Then
            MessageBox.Show("Kontrollieren Sie bitte Ihre Zeiten!", "Hinweis:")
            Exit Sub
        End If
 
        Dim NewRow As DataRow = dt.NewRow
        NewRow("Beginn") = dtpBeginn.Value
        NewRow("Ende") = dtpEnde.Value
        NewRow("Art") = cmbArt.Text
        NewRow("Prioritaet") = cmbPrioritaet.Text
        dt.Rows.Add(NewRow)
        Berechnen()
 
    End Sub
 
    Private Sub Berechnen()
 
        iRestzeit = iBasiszeit
 
        Dim dtBeginn As DateTime = Nothing
        Dim dtEnde As DateTime = Nothing
        Dim iDauer As Integer = 0
 
        For Each r As DataRow In dt.Rows
            dtBeginn = r("Beginn")
            dtEnde = r("Ende")
            iDauer = DateDiff(DateInterval.Minute, dtBeginn, dtEnde)
            r("Dauer") = iDauer
            iRestzeit = iRestzeit - iDauer
            r("Restzeit") = iRestzeit
        Next
 
    End Sub
 
    Private Sub DataGridView1_UserDeletedRow(sender As Object, e As _
      DataGridViewRowEventArgs) Handles DataGridView1.UserDeletedRow
        Berechnen()
    End Sub
End Class

EALA FREYA FRESENA

Beitrag wurde zuletzt am 11.11.18 um 12:19:18 editiert.

EALA FREYA FRESENA

EALA FREYA FRESENA

  Private Sub Berechnen()
 
        iRestzeit = iBasiszeit
 
        Dim dtBeginn As DateTime = Nothing
        Dim dtEnde As DateTime = Nothing
        Dim iDauer As Integer = 0
 
        For Each r As DataRow In dt.Rows
            dtBeginn = r("Beginn")
            dtEnde = r("Ende")
            iDauer = DateDiff(DateInterval.Minute, dtBeginn, dtEnde)
            r("Dauer") = iDauer
            iRestzeit = iRestzeit - iDauer
            r("Restzeit") = iRestzeit
        Next
 
    End Sub

  Private Sub BS_Notizen_ListChanged(sender As Object, e As _
    System.ComponentModel.ListChangedEventArgs) _
        Handles BS_Notizen.ListChanged
        If BS_Notizen_Liste.Count = 0 Then Return
 
        Dim gesamtdauer As Integer = BS_Notizen_Liste.Sum(Function(f) _
          f.ToDoDauer)
        Dim ts As New TimeSpan(0, 0, gesamtdauer)
 
        lbl_Minuten.Text = String.Concat(gesamtdauer & " [Min]").ToString
        lbl_gesamt_Dauer.Text = String.Format("{1:00}.{2:00}:{3:00}", ts.Days, _
          ts.Hours, ts.Minutes, ts.Seconds)
        'noch Verfügbare Tagesrestzeit
        lbl_aktuelle_Restzeit.Text = iBasiszeit - gesamtdauer
 
        Anzahl_Ereignisse(StartDatum:=New Date(Today.Year, Today.Month, _
          Today.Day, 5, 59, 59, 999), _
                              EndDatum:=New Date(Today.Year, Today.Month, _
                              Today.Day, 23, 59, 59, 999))
    End Sub

  Private Sub Anzahl_Ereignisse(ByVal StartDatum As Date, ByVal EndDatum As _
    Date)
        Dim von_Datum = Today.AddDays(0)
 
        If Me.AblageDB.Notizen.Rows.Count = 0 Then Return
        ' Abfrage
        Dim AbfrageG As System.Data.EnumerableRowCollection(Of NotizenRow)
        AbfrageG = From Reihe In Me.AblageDB.Notizen
                   Where Reihe.RowState <> DataRowState.Deleted AndAlso _
                     Reihe.IsToDoBeginnNull = False AndAlso _
                   Reihe.ToDoBeginn >= von_Datum _
     Select Reihe
        Dim anzahlDatensaetze As Integer = AbfrageG.Count
        If anzahlDatensaetze <> 1 Then
            lbl_aktuelle_Ereignissanzahl.Text = String.Concat( _
              anzahlDatensaetze.ToString & " Aktuelle Aufgaben")
 
        Else
            lbl_aktuelle_Ereignissanzahl.Text = String.Concat( _
              anzahlDatensaetze.ToString & " Aktuelle Aufgabe")
 
        End If
    End Sub

Private Sub btn_Gut_Minuten_Buchen_Click(sender As Object, e As EventArgs) _
  Handles btn_Gut_Minuten_Buchen.Click
        Dim von_Datum = Today.AddDays(0)
        Dim cal As Globalization.Calendar = _
        Globalization.CultureInfo.CurrentCulture.Calendar
        Me.Cursor = Cursors.WaitCursor
 
        Dim q = From row As DataRow In AblageDB.Notizen
         Let Minuten = row.Field(Of Integer)("ToDoDauer")
         Let ToDo = row.Field(Of Date)("ToDoBeginn").ToShortDateString
         Where von_Datum = row.Field(Of Date)("ToDoBeginn").ToShortDateString
         Group By art = ToDo Into Sum(Minuten), Count()
 
        Dim df As New DataTable
        With df.Columns
            .Add("ToDo", GetType(String))
            .Add("Count", GetType(Integer))
            .Add("Minuten", GetType(Integer))
        End With
        For Each el In q
            df.Rows.Add(el.art, el.Count, el.Sum)
        Next el
 
        Dim bs As New BindingSource With {.DataSource = df}
        bs.Sort = "Count DESC"
 
        Dim _Sum As Integer
        _Sum = df.AsEnumerable().Sum(Function(row) row.Field(Of Integer)( _
          "Minuten"))
 
        'Daten in der DGV anzeigen
        DGV3.DataSource = bs
 
        With DGV3
            .Columns(0).AutoSizeMode = DataGridViewAutoSizeColumnsMode.Fill
            .Columns(1).Width = 60
            .Columns(1).DefaultCellStyle.Alignment = _
              DataGridViewContentAlignment.MiddleRight
            .Columns(2).Width = 60
            .Columns(2).DefaultCellStyle.Alignment = _
              DataGridViewContentAlignment.MiddleRight
        End With
 
        With DGV3
            .EnableHeadersVisualStyles = False
            .ColumnHeadersDefaultCellStyle.Alignment = _
              DataGridViewContentAlignment.MiddleCenter
            .ColumnHeadersDefaultCellStyle.BackColor = Color.DimGray
            .ColumnHeadersDefaultCellStyle.ForeColor = Color.FloralWhite
            .BackgroundColor = Color.LightGray
            .Font = New Font("Consolas;", 9.5, FontStyle.Regular)
            .ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single
            .ColumnHeadersHeight = 28
            .ColumnHeadersHeightSizeMode = _
              DataGridViewColumnHeadersHeightSizeMode.DisableResizing
            .RowHeadersVisible = False
            .GridColor = System.Drawing.Color.DarkGray
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .DefaultCellStyle.WrapMode = DataGridViewTriState.True
            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
        End With
        With DGV3.DefaultCellStyle
            .SelectionForeColor = Color.OldLace
            .SelectionBackColor = Color.Olive
            .BackColor = Color.LightGray
            .ForeColor = Color.Black
            .Font = New Font("Consolas;", 8.0, FontStyle.Regular)
        End With
        With DGV3.AlternatingRowsDefaultCellStyle
            .SelectionForeColor = Color.OldLace
            .SelectionBackColor = Color.Olive
            .BackColor = Color.WhiteSmoke
            .ForeColor = Color.Black
            .Font = New Font("Consolas;", 8.0, FontStyle.Regular)
        End With
 
        Me.Cursor = Cursors.Default
    End Sub

EALA FREYA FRESENA

For Each r As DataRow In dt.Rows
            dtBeginn = r("Beginn")
            dtEnde = r("Ende")
            iDauer = DateDiff(DateInterval.Minute, dtBeginn, dtEnde)

r("Dauer") = iDauer
            iRestzeit = iRestzeit - iDauer
            r("Restzeit") = iRestzeit

Zitat:

Also nur Zeitvorgabe und verbrauchte Zeit pro Tag egal wofür! mein Regelarbeitstag beginnt um 07:00 bis 16:00 Gleitzeit was macht nun mehr Sinn den Start der Aufgabe zu setzen und die benötigte Zeit eingeben Ende und Restzeit rechnen? evtl. Korrektur der benötigten Zeit so möglich?

Zitat:

nächster Tag gleiches Spiel mit korrekter Berechnung?

 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

  Private Sub setze_Start_Ende(ByVal d1 As Date, ByVal d2 As Date)
        dtpBeginn.Value = d1
        dtpEnde.Value = d2
 
        If ISWeekend(CDate(dtpDatum.Value.ToShortDateString)) Then
            lbl_Info.Text = "Der " & CStr(CDate( _
              dtpDatum.Value.ToShortDateString)) & _
              " - Wochenende - Sie haben frei!"
            lbl_Info.BackColor = Color.Azure
            lbl_Info.ForeColor = Color.Black
        Else
            lbl_Info.Text = "Der " & CStr(CDate( _
              dtpDatum.Value.ToShortDateString)) & _
              " ist ein Wochentag - Sie müssen arbeiten!"
            lbl_Info.BackColor = Color.DarkSlateBlue
            lbl_Info.ForeColor = Color.WhiteSmoke
        End If
 
    End Sub
 
    'Funktion, mit der ermittelt wird ob Wochenende oder Werktag
    Function ISWeekend(Datum As Date) As Boolean
        ISWeekend = (Weekday(Datum) Mod 6 = 1)
    End Function

  Private Sub _Arbeitszeit_berechnen()
        Dim anfang As DateTime = (dtpBeginn.Value)
        Dim ende As DateTime = (dtpEnde.Value)
        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, CInt(nud_AZSOLL.Value), 0)
 
        If ISWeekend(CDate(dtpDatum.Value)) Then
            Dim NewRow As DataRow = dt.NewRow
            NewRow("Tag") = dtpDatum.Value.ToShortDateString
            NewRow("Beginn") = "00:00"    'dtpBeginn.Value.ToShortTimeString
            NewRow("Ende") = "00:00"      'dtpEnde.Value.ToShortTimeString
            NewRow("Pause") = "00:00"     'pause
            NewRow("Anwesend") = "00:00"  'dauer
            NewRow("Soll-AZ") = "00:00"   'soll
            NewRow("Ist-AZ") = "00:00"    'dauer - pause
            NewRow("Gleitzeit") = "00:00" '(dauer - soll) - pause
            dt.Rows.Add(NewRow)
        Else
            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 If
 
    End Sub

  Private Sub _Arbeitszeit_berechnen()
        Dim anfang As DateTime = (dtpBeginn.Value)
        Dim ende As DateTime = (dtpEnde.Value)
        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, CInt(nud_AZSOLL.Value), 0)
 
        If ISWeekend(CDate(dtpDatum.Value)) Then
            Dim NewRow As DataRow = dt.NewRow
            NewRow("Tag") = dtpDatum.Value.ToShortDateString
            NewRow("Beginn") = "00:00"    'dtpBeginn.Value.ToShortTimeString
            NewRow("Ende") = "00:00"      'dtpEnde.Value.ToShortTimeString
            NewRow("Pause") = "00:00"     'pause
            NewRow("Anwesend") = "00:00"  'dauer
            NewRow("Soll-AZ") = "00:00"   'soll
            NewRow("Ist-AZ") = "00:00"    'dauer - pause
            NewRow("Gleitzeit") = "00:00" '(dauer - soll) - pause
            NewRow("Bemerkung") = "WE"
            dt.Rows.Add(NewRow)
        ElseIf cmbBemerkung.Text = "Entnahme GLZ" Then
            Dim NewRow As DataRow = dt.NewRow
            NewRow("Tag") = dtpDatum.Value.ToShortDateString
            NewRow("Beginn") = "00:00"    'dtpBeginn.Value.ToShortTimeString
            NewRow("Ende") = "00:00"      'dtpEnde.Value.ToShortTimeString
            NewRow("Pause") = "00:00"     'pause
            NewRow("Anwesend") = "00:00"  'dauer
            NewRow("Soll-AZ") = "00:00"   'soll
            NewRow("Ist-AZ") = "00:00"    'dauer - pause
            NewRow("Gleitzeit") = "00:00" '(dauer - soll) - pause
            NewRow("Bemerkung") = cmbBemerkung.Text.ToString
            dt.Rows.Add(NewRow)
        ElseIf cmbBemerkung.Text = "Frei" Then
            Dim NewRow As DataRow = dt.NewRow
            NewRow("Tag") = dtpDatum.Value.ToShortDateString
            NewRow("Beginn") = "00:00"    'dtpBeginn.Value.ToShortTimeString
            NewRow("Ende") = "00:00"      'dtpEnde.Value.ToShortTimeString
            NewRow("Pause") = "00:00"     'pause
            NewRow("Anwesend") = "00:00"  'dauer
            NewRow("Soll-AZ") = "00:00"   'soll
            NewRow("Ist-AZ") = "00:00"    'dauer - pause
            NewRow("Gleitzeit") = "00:00" '(dauer - soll) - pause
            NewRow("Bemerkung") = cmbBemerkung.Text.ToString
            dt.Rows.Add(NewRow)
        Else
            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
            NewRow("Bemerkung") = cmbBemerkung.Text.ToString
            dt.Rows.Add(NewRow)
        End If
 
    End Sub

 Private Sub Glz_Minuten_Rechner()
        Dim gesamtdauer As Integer = 0
        tbx_Glz_Summe.Text = Added(dt, 8).ToString
        gesamtdauer = CInt(tbx_Glz_Summe.Text)
        Dim ts As New TimeSpan(0, 0, gesamtdauer)
        lbl_gesamt_Dauer.Text = String.Format("{1:00}.{2:00}:{3:00}", ts.Days, _
          ts.Hours, ts.Minutes, ts.Seconds)
    End Sub

 Private Sub Glz_Minuten_kummulieren()
        Dim result As Integer = 0
        For Each r As DataRow In dt.Rows
            result += (CInt(r("Gleitzeit").ToString.Substring(0, 2)) * 60) _
                   + (CInt(r("Gleitzeit").ToString.Substring(3, 2)))
            r(9) = result
        Next
    End Sub