Nachtzeit VBA abbzüglich WE
08.02.2018 20:19:58
Peer
Ich sitze seit ein paar Tage u.a. an einer Lösung für diesen Code, dem ich im Netz gefunden habe und schon ein paar Jahre alt ist.
Vom Ersteller kommt bis jetzt keine Antowrt auf meine Anfrage.
Deshalb hoffe ich mir zu helfen.
' ******* _
http://www.excel-ist-sexy.de/nachtschicht-zeitberechnung-fuer-zuschlag/
' Funktion aus oben genannter Website
Function NachtZeit(Beginn As Date, Ende As Date) As Date
Dim NsStart As Date, NsEnde As Date
Dim Ns As Boolean, ZweiTage As Boolean
Dim Rc As Variant
NsStart = CDate("20:00") 'Beginn der Nachtschicht
NsEnde = CDate("6:00") 'Ende der Nachtschicht
If Ende = NsStart Or Beginn = NsStart Then Ns = True
If Ns Then
If ZweiTage Then 'Beginn vor Mitternacht
If Beginn >= NsStart Then 'Beginn in der Nachtschicht
Rc = 1 - Beginn
Else 'Beginn vor der Nachtschicht
Rc = 1 - NsStart
End If
Rc = Rc + WorksheetFunction.Min(Ende, NsEnde)
Else 'Nur an 1 Tag
If Beginn Nun möchte ich aber, dass Sonntage und Wochenfeiertage bei der Berechnung raus genommen werden.
Ich brauche diese Daten für die Berechnung der Zuschläge für Nachtarbeit (2,30 ) und Sonn- und Wochenfeiertage (4,90 ).
Vielleicht weiß jemand Rat.
https://www.herber.de/bbs/user/119667.xlsm
Danke im Voraus.
LG
Peer
Anzeige