vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 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: 20.11.18 20:13

ist ziemlich Ruhig geworden nach meinem letzten Post

https://picload.org/view/dcopapra/20-11-_2018_19-53-02.png.html

habe seitdem hin und her probiert, funktioniert auch bis hier her soweit
über eine Funktion pruefe ich ob Datum ein AT oder WE ist

  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
und berücksichtige das in der AZ Berechnung
das müsste man auch für die Feiertage machen ? wie ?
aber zunächst mal ist das plausibel oder würdest du bzw. ihr es anders machen?
  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
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 automatisieren798Franki10.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 automatisieren777ERBRU14.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 automatisieren736ERBRU18.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