Как считать часы?

[tararam]

Доброго времени суток! Помогите написать формулу, с помощью которой в excel можно рассчитать, к примеру, время заведения прихода, а именно от заезда машины на склад и до оприходования товара операторами. С учетом, что склад работает в 2 смены, с 08-00 до 17-00 (перерыв с 12-00 до 13-00) и с 17-00 по 02-00 (перерыв с 21-00 по 22-00).
Например: машина заехала в 8-00, а оприходовали ее в 16-00 следующего дня, это равно 24 часа.
Буду очень признателен за помощь!

[EugeneS]

если я верно понял Ваш замысел, наверное, так (см. вложенный файл).

Сообщение от tararam

Например: машина заехала в 8-00, а оприходовали ее в 16-00 следующего дня, это равно 24 часа.
Буду очень признателен за помощь!

получается 32 часа...

[doober]

Судя по его подсчетам,считается видимо простой не автомобиля,а рабочее время водителя,хотя должно быть не 24 часа,а 21

Sub  Время_простоя()

Dim d As Date 'время заезда
Dim dd As Date 'время убытия

Dim a, a1, b, b1, c, c1 As Boolean
Dim rezult As Double

d = 8 / 24

dd = 1+16 / 24

If CBool((d - Int(d)) * 24 > 7.59) And (d - Int(d)) * 24 < 12 Then
a = True
End If

If CBool((dd - Int(dd)) * 24 > 7.59) And CBool((dd - Int(dd)) * 24 < 12) Then
a1 = True
End If

If CBool((d - Int(d)) * 24 > 12.59) And (d - Int(d)) * 24 < 21 Then
b = True
End If

If CBool((dd - Int(dd)) * 24 > 12.59) And (dd - Int(dd)) * 24 < 21 Then
b1 = True
End If


If CBool((d - Int(d)) * 24 > 21.59) And CBool((d - Int(d)) * 24 <= 24) Then
c = True
End If

If CBool((dd - Int(dd)) * 24 >= 21.59) And CBool((dd - Int(dd)) * 24 <= 24) Then
c1 = True
End If

If CBool((d - Int(d)) * 24 >= 0) And (d - Int(d)) * 24 < 2 Then
c = True
End If

If CBool((dd - Int(dd)) * 24 >= 0) And (dd - Int(dd)) * 24 < 2 Then
c1 = True
End If
If a = True And a1 = True Then
rezult = (dd - d) * 24 - Int(dd - d) * 8
End If

If b = True And b1 = True Then
rezult = (dd - d) * 24 - Int(dd - d) * 8
End If
If c = True And c1 = True Then
rezult = (dd - d) * 24 - Int(dd - d) * 8
End If

If a = True And b1 = True Then
rezult = (dd - d) * 24 - Int(dd - d) * 8- 1
End If
If a = True And c1 = True Then
rezult = (dd - d) * 24 - Int(dd - d) * 8 - 2
End If

If b = True And a1 = True Then
rezult = (dd - d) * 24 - Int(dd - d) * 8 - 7
End If

If b = True And c1 = True Then
rezult = (dd - d) * 24 - Int(dd - d) * 8 - 1
End If

If c = True And a1 = True Then
rezult = (dd - d) * 24 - Int(dd - d) * 8- 6
End If

If c = True And b1 = True Then
rezult = (dd - d) * 24 - Int(dd - d) * 8 - 7
End If




End Sub

[tararam]

Не совсем так... Необходимо время именно рабочего времени. Например, с 8:00 одного дня до 8:00 следующего дня проходит 16 часов рабочего времени. Т.к. склад работает в 2 смены по 8 часов. С 8:00 одного дня до 16:00 следующего дня как раз и проходит 24 рабочих часа. И именно это время и нужно рассчитать автоматически.

[doober]

Вспомним математику Пупкина.
С 8.00 до 8 .00 прошли сутки -16 рабочих часов.
С 8.00 до 16.00 прошли 8 астрономических часов и минус 1 час перерыва с 12 до 13 ,на выходе 7 часов.
16+7=23