vCount = 0: sum = 0#
    Do Until rs3.EOF
        m1 = CDate(rs3(0).Value)
        vCount = vCount + 1
        rs3.MoveNext
        m = DateDiff("s", sum1, CDate(rs3(0).Value))
    Loop
 

rs3.MoveNext.Value

rs3(0).Value - rs3.MoveNext  

DateDiff('s', rs3(0).Value,  rs3.MoveNext.Value) 
 

 rs3.MoveNext.Value

 Set rs3 = dbs.OpenRecordset("Select DT From Таблица1 WHERE DT BETWEEN Dateadd('h', -1, Now()) AND Now()") 
vCount = 0: sum = 0#
   Do Until  rs3.EOF
        sum = sum + (rs3(0).Value - rs3.MoveNext)*k
        vCount = vCount + 1
        rs3.MoveNext 
    Loop
MsgBox Cstr(sum) 

a = ActiveWorkbook.Path
Set dbs = DAO.OpenDatabase(a + "/test.mdb")
Set rs = dbs.OpenRecordset("Select TOP 7000 density   FROM Таблица1 ORDER BY density Desc")
   
  If Not rs.EOF Then
rs.MoveLast
h = rs.RecordCount
MsgBox h 
End if
rs.MoveFirst
        Dim arr As Variant
        Dim v As Integer
       arr = GetR(rs, rs.RecordCount)
For i = 1 To h
arr(i) = Method(arr(i))'''''''''''функция вычисления
Next i
sum = 0
For v= 1 To h
sum = sum + arr(v)
Next v
MsgBox sum
mA = sum / h

Sheets("Лист1").Cells(1, 4).Value = mA
 

with activesheet.pagesetup
.fittopagestall = 1
.fittopageswide = 1
if activesheet.usedrange.width > activesheet.usedrange.height then
    .orientation = xlLandscape
else
    .orientation = xlPortrait
end if
end with 

Sheets("Лист1").Range("A8:P42").PrintOut Copies:=1, Collate:=True