Function RabocheeVremya(Date1, ByVal Date2)
    Dim DateStart  As Date, Nochi%
   ' Dim IntKolDney$
'IntKolDney(1, 1) = Application.WorksheetFunction.NetworkDays(DtmDataDol, DtmDataVozvr)
    Nochi = DateValue(Date2) - DateValue(Date1)
    If TimeValue(Date1) > TimeSerial(18, 0, 0) Then
        DateStart = DateValue(Date1) + TimeSerial(18, 0, 0)
    ElseIf TimeValue(Date1) < TimeSerial(8, 0, 0) Then
        DateStart = DateValue(Date1) + TimeSerial(8, 0, 0)
    Else
        DateStart = Date1
    End If
    If TimeValue(Date2) > TimeSerial(18, 0, 0) Then
        Date2 = DateValue(Date2) + TimeSerial(18, 0, 0)
    ElseIf TimeValue(Date2) < TimeSerial(8, 0, 0) Then
        Date2 = DateValue(Date2) + TimeSerial(8, 0, 0)
    End If
    RabocheeVremya = DateDiff("n", DateStart, Date2) - Nochi * 840 ' - Application.WorksheetFunction.NetworkDays(Date1, Date2) ' 14 часов нераб.
End Function