Расчет бизнес минут составляет 2 даты, исключая выходные

Question

У меня есть следующий код, который вычисляет рабочие минуты из 2 приведенных дат. Где 9:00 - время начала, а 17:30 - конечное sh время. Тем не менее, как я могу также включить правило, в котором я могу предотвратить включение выходных часов? У меня здесь такой блок разума: /

Function ElapsedBusinessMinutes(StartDateTime As Date, StopDateTime As Date) As Single
Dim dteAdjStart As Date
Dim lngElapsedMinutes As Long
Dim lngMinutesInWorkDay As Long
lngMinutesInWorkDay = 510
dteAdjStart = TimeValue(StartDateTime)
If dteAdjStart > #5:30:00 PM# Then
  dteAdjStart = TimeSerial(7, Minute(StartDateTime), Second(StartDateTime))
  lngElapsedMinutes = DateDiff("d", StartDateTime, StopDateTime - 1) * lngMinutesInWorkDay
Else
  lngElapsedMinutes = DateDiff("d", StartDateTime, StopDateTime) * lngMinutesInWorkDay
End If
ElapsedBusinessMinutes = lngElapsedMinutes + DateDiff("n", dteAdjStart, TimeValue(StopDateTime))
End Function