Расчёты в запросах )

Sub DatesFromXSL()
Dim dat As Date
Dim str As String
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
    With rst
        .Open "SELECT ПолеДаты " & _
              "FROM [НужныйЛист$] " & _
              "IN '" & CurrentProject.path & "\ФайлЭкселя.xls' 'EXCEL 5.0;\'", _
                  CurrentProject.Connection, adOpenKeyset, adLockReadOnly
        If .RecordCount < 3 Then Exit Sub
        .Move 1
        dat = Nz(.Fields("ПолеДаты"))
        str = "Первая дата (во второй строке, если есть заголокок столбца) - " & _
                  Format(dat, "Long Date") & ";" & vbNewLine
            Do Until .EOF
              str = str & _
                  "Дата (" & _
                      Format(.Fields("ПолеДаты"), "Long Date") & ") " & _
                  "в строке № " & _
                      .AbsolutePosition + 1 & " " & _
                  "на " & _
                      CStr(Abs(DateDiff("d", dat, Nz(.Fields("ПолеДаты"))))) & " " & _
                  "дней " & _
                      IIf(DateDiff("d", dat, Nz(.Fields("ПолеДаты"))) < 0, _
                  " меньше ", " больше ") & _
                  "даты (" & _
                      Format(dat, "Long Date") & ") в предыдущей строке" & _
                  ";" & vbNewLine
              dat = Nz(.Fields("ПолеДаты"))
              .MoveNext
            Loop
    End With
rst.Close: Set rst = Nothing
Debug.Print Mid(str, 1, Len(str) - 3) & "."
End Sub