'  Процедуры ниже заполняют протокол данными со счётчика
'
Public Function ОбработатьЧасовой(Wrs As Excel.Worksheet, ByVal До As Date, ByVal Всего As Integer) As Integer
Dim i As Integer, j As Integer, k As Integer
Dim Регистр As Integer, iDay As Integer
Dim iStr As Integer, iPos As Integer
Dim День As Date
Dim a
  With Wrs
        If kTab = 0 Then Exit Function
    День = До - Всего + 1
    iDay = Sect(Sect_Tbl, 1) + TblBeg
    For k = 1 To Всего
        For i = 1 To kTab               ' Цикл по регистрам
         If ПрерватьЧтение Then
            ОбработатьЧасовой = 1
            Exit Function
          End If
           Регистр = sTab(2, i)
            iPos = sTab(1, i)
            iStr = iDay
            ' *************************************
            a = MC601_СчитатьЧасовой(Регистр, День)
            ' *************************************
 ИндикаторЕщё (1)
            For j = 24 To 1 Step -1             ' Записываем в блок
                .Cells(iStr, iPos) = a(j)
                iStr = iStr + 1
              Next j
          Next i
        iDay = iDay + TblLen
        День = День + 1
      Next k
  End With
End Function