Неверный результат с AVG() время, когда час>24 в ADODB.Recordset

Question

Кто -то может помочь мне понять, почему, когда я запускаю этот код, я получаю неправильный результат (пример таблицы представляет собой выдержку из 25К записей) каждый раз, когда в диапазоне данных у нас есть записи с Kpi1-2 > 24H.

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")

DBPath = ThisWorkbook.FullName
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & ThisWorkbook.FullName & ";" & _
        "Extended Properties=""Excel 8.0;HDR=Yes;"";"    

Strsql:Select [DataAttesa] as Data, avg([Kpi1-2]) as nr FROM [db_In$] Where TypeTrasp  = 'STD' and [1-2_ESITO] in ('90%','100%','Out of Time','On Going') group by [DataAttesa] Order by [DataAttesa]asc

    objRecordset.Open strsql, objConnection, adOpenStatic, adLockReadOnly, adCmdUnspecified
       Do Until objRecordset.EOF
         debug.print objRecordset.Fields.item("nr")
         objRecordset.MoveNext
      Loop
    objRecordset.Close

ОБНОВЛЕНИЕ: я проверяю этот код:

debug.print objRecordset.Fields.item("nr")
in the immediate windows I see: 21/01/1900  11:41:00
if I test tu put the result into a cell:

Cells(20, 7) = objRecordset.Fields.item("nr") 
the cells.value will be 22/01/1900  11:41:25
Cells(21, 7) = Format(objRecordset.Fields.item("nr"), "dd/mm/yyyy hh:mm;@")
the cells.value will be 21/01/1900  11:41:25

Только второе это правильно. Зачем?!?! что добавить?!?

Answer 1

Решение этой проблемы обсуждалось в этом посте: Разница времени просмотра от Excel до VBA

Я вставляю ссылку, если она может помочь любому другому пользователю

Фабрицио