let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    f = (tbl as table) =>
        [wd = Date.DayOfWeek(Date.From(Table.FirstValue(tbl)), Day.Monday),
        t = #time(if wd > 4 then 0 else if wd = 4 then 16 else 17, 0, 0),
        recs = List.Buffer(Table.ToRecords(tbl)),
        tx = Duration.TotalHours(
            List.Sum(
                List.Transform(recs,
                    (x) => List.Max({t, Time.From(x[Выход])}) - List.Max({t, Time.From(x[Вход])})
                )
            )
        )][tx],
    group = Table.Group(
        Source, "Вход",
        {{"Результат", each Date.From([Вход]{0})},
        {"Переработка", each f(_)}},
        GroupKind.Local, (s, c) => Number.From(Date.From(c) <> Date.From(s))
    )[[Результат], [Переработка]]
in
    group

=LET(
    in, Table1[Вход],
    in_time, in - INT(in),
    out, Table1[Выход],
    out_time, out - INT(out),
    days, UNIQUE(INT(in)),
    wd, WEEKDAY(days),
    wt, SWITCH(wd, 6, 16, 7, 0, 1, 0, 17) / 24,
    t, MAP(
        days,
        wt,
        LAMBDA(x, y,
            SUM(
                MAP(FILTER(out_time, INT(out) = x), LAMBDA(w, MAX(w, y))) -
                    MAP(FILTER(in_time, INT(in) = x), LAMBDA(w, MAX(w, y)))
            )
        )
    ),
    HSTACK(days, t * 24)
)

=ИНДЕКС($B$1:$B$37;ПОИСКПОЗ(ДЕНЬ(D1);ДЕНЬ($A$1:$A$37);0))

=ЦЕЛОЕ(ЕСЛИОШИБКА(ИНДЕКС($A$1:$A$37;НАИМЕНЬШИЙ(ЕСЛИ($B$1:$B$37>=0;СТРОКА($A$1:$A$37));СТРОКА()));""))