HERBERS Excel-Forum - die Beispiele

Thema: Arbeitszeiberechnung unter Berücksichtigung der Regelarbeitszeit

Home

Gruppe

DatumZeit

Problem

Über die Formel in Spalte D soll unter Berücksichtigung des Arbeitsbeginns, der Pausen- und der Regelarbeitszeit das Arbeitsende bestimmt werden.

Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.
StandardModule: basMain

Function ATC(datStart As Date, datEnd As Date, _
   rngHolliday As Object) As Integer
   Dim rng As Range
   Dim iCounter As Integer, iStart As Integer
   Dim iEnd As Integer, iTmp As Integer
   iStart = 8 - WeekDay(datStart)
   iEnd = WeekDay(datEnd) - 1
   iTmp = (datEnd - datStart) - (iStart + iEnd)
   iTmp = iTmp - (iTmp / 7)
   iTmp = iTmp + iStart + iEnd
   If WeekDay(datStart) = 1 Then iTmp = iTmp - 1
   For iCounter = 1 To rngHolliday.Rows.Count
       Set rng = rngHolliday.Cells(iCounter, 1)
       If rng >= datStart And rng <= datEnd Then
           If WeekDay(rng) <> 1 Then iTmp = iTmp - 1
       End If
   Next iCounter
   ATC = iTmp
End Function