vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Summe zum Datum automatisieren 
Autor: ERBRU
Datum: 18.11.18 11:47

Hallo Franki,

habe jetzt mal in einer Testumgebung das Thema "Arbeitszeit" umgesetzt.

Ergebnisse scheinen zunächst plausibel habe auch gleich eine Col Gleitzeit hinzugefügt

ist mein Code denn auch plausibel und korrekt? oder wie kann der optimiert werden?

zunächst setze ich meine Standards wie Anfang ende auf tägliche Anwesenheit also

07:00 - 16:00 bei jedem dtp.value change

 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
und so berechne ich das und füge eine neue Row hinzu

  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
so sieht es dann aus über eine Antwort auf meinen Post würde ich mich freuen.
jede Verbesserung an dem Code ist mir angenehm soll ja Richtig funktionieren.

die Darstellung 01:27:00 kann man das auch als ganzzahl hinbekommen?
sind ja 87 Minuten

https://picload.org/view/dcocwwii/18-11-_2018_11-22-59.png.html

und dann das Thema Aufgaben ?
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Summe zum Datum automatisieren1.393ERBRU09.11.18 19:53
Re: Summe zum Datum automatisieren798Kuno6009.11.18 21:23
Re: Summe zum Datum automatisieren808ERBRU09.11.18 22:00
Re: Summe zum Datum automatisieren799Franki10.11.18 03:49
Re: Summe zum Datum automatisieren809ERBRU10.11.18 17:13
Re: Summe zum Datum automatisieren792ERBRU10.11.18 17:54
Re: Summe zum Datum automatisieren805effeff10.11.18 19:58
Re: Summe zum Datum automatisieren774ERBRU10.11.18 20:07
Re: Summe zum Datum automatisieren784effeff11.11.18 12:18
Re: Summe zum Datum automatisieren789ERBRU11.11.18 13:15
Re: Summe zum Datum automatisieren782ERBRU11.11.18 20:14
Re: Summe zum Datum automatisieren799effeff11.11.18 21:20
Re: Summe zum Datum automatisieren766ERBRU11.11.18 21:33
Re: Summe zum Datum automatisieren763Franki12.11.18 02:35
Re: Summe zum Datum automatisieren775effeff11.11.18 22:35
Re: Summe zum Datum automatisieren821ERBRU12.11.18 06:10
Re: Summe zum Datum automatisieren780Franki13.11.18 03:34
Re: Summe zum Datum automatisieren785ERBRU13.11.18 06:44
Re: Summe zum Datum automatisieren757Franki14.11.18 04:36
Re: Summe zum Datum automatisieren778ERBRU14.11.18 17:26
Re: Summe zum Datum automatisieren775Franki15.11.18 04:05
Re: Summe zum Datum automatisieren754ERBRU16.11.18 19:23
Re: Summe zum Datum automatisieren737Franki17.11.18 00:43
Re: Summe zum Datum automatisieren737ERBRU18.11.18 11:47
Re: Summe zum Datum automatisieren742ERBRU20.11.18 20:13
Re: Summe zum Datum automatisieren781ERBRU13.11.18 19:55
Re: Summe zum Datum automatisieren776ERBRU13.11.18 14:27
Re: Summe zum Datum automatisieren800effeff13.11.18 23:33
Re: Summe zum Datum automatisieren798ERBRU15.11.18 10:59
Re: Summe zum Datum automatisieren777ERBRU21.11.18 11:00

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel