Як обчислити передбачувані моменти за 8 годин робочих днів

У своєму робочому аркуші я хочу обчислити орієнтовний час закінчення процесів, враховуючи часові рамки робочого дня.

Припустимо робочі дні з 8:00 до 17:00 та опустіть суботу та неділю.

Так, наприклад, коли я додаю 4 години до 14:00, я не хочу, щоб результат був 18:00, але 9:00 (3 години веде вас до кінця робочого дня, остання година починається наступного робочого дня ).

Хтось може мені допомогти?

EDIT -

За допомогою Саймона в rcl мені вдалося адаптувати його рішення для обчислення з хвилинами. Однак, здається, є проблема. Коли я додаю

960 хвилин до 22-05-15 16:00 функція дає правильний результат 26-05-15 14:00

однак, за годину додатково (60 хвилин) результат змінюється назад до 25-05-15 09:00.

Хтось бачить тут проблему?

Option Explicit

Public Function EndDayTimeM(StartTime As String, Minutes As Double)

On Error GoTo Hell
' start and end hour are fixed here.
' could put them in cells and look them up
Dim startMinute As Long, endMinute As Long, startHour As Long, endHour As Long

startMinute = 480

endMinute = 960 ' was 18

startHour = 8

endHour = 16

Dim calcEnd As Date, start As Date
start = CDate(StartTime)
calcEnd = DateAdd("n", Minutes, start)

If DatePart("h", calcEnd) > endHour Or DatePart("h", calcEnd) <= startHour Then
    ' add 15 hours to get from 17+x to 8+x
    calcEnd = DateAdd("h", 15, calcEnd)  ' corrected

End If

If DatePart("w", calcEnd) = 7 Or DatePart("w", calcEnd) = 1 Then
    ' Sat or Sun: add 2 days
    calcEnd = DateAdd("d", 2, calcEnd)
End If

If DatePart("h", calcEnd) > endHour Or DatePart("h", calcEnd) <= startHour Then
    ' add 15 hours to get from 17+x to 8+x
    calcEnd = DateAdd("h", 15, calcEnd)  ' corrected
End If

EndDayTimeM = calcEnd

GoTo Ret

Hell:
EndDayTimeM = Err.Description
Ret:

End Function

У Excel перейдіть на вкладку Стрічки для розробників і натисніть Visual Basic.

Клацніть правою кнопкою миші проект VBA (окреслений червоним кольором) та виберіть Вставити, а потім - Модуль. Це додасть Module1 до проекту нижче VBAProject. Двічі клацніть на Module1.

Виберіть панель праворуч і вставте наступний код у:

Option Explicit

Public Function EndDayTime(StartTime As String, Hours As Double)

    On Error GoTo Hell
    ' start and end hour are fixed here. 
    ' could put them in cells and look them up
    Dim startHour As Long, endHour As Long
    startHour = 8

    endHour = 17 ' was 18

    Dim calcEnd As Date, start As Date
    start = CDate(StartTime)
    calcEnd = DateAdd("h", Hours, start)

    If DatePart("h", calcEnd) > endHour Or DatePart("h", calcEnd) <= startHour Then
        ' add 15 hours to get from 17+x to 8+x
        calcEnd = DateAdd("h", 15, calcEnd) ' corrected

    End If

    If DatePart("w", calcEnd) = 7 Or DatePart("w", calcEnd) = 1 Then
        ' Sat or Sun: add 2 days
        calcEnd = DateAdd("d", 2, calcEnd)
    End If

    EndDayTime = calcEnd

    GoTo Ret

Hell:
    EndDayTime = Err.Description
Ret:

End Function

Потім ви можете використовувати його на своєму робочому аркуші наступним чином: У цьому прикладі у мене є DateTime, який я ввів у A2, кілька годин у B2 ... B8, а стовпець C має функцію EndDayTime, використовуючи Ax і Bx. У колонці A після рядка 2 вона просто копіює C [рядок - 1], тому попередній кінець стає наступним початком

Ура -

EDIT: Виправлений код за часом закінчення 17, а не 18.