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

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

0 голосов
/ 11 марта 2019

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

enter image description here

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

UPDATE: Я проверяю этот код: 

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

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

1 Ответ

0 голосов
/ 15 марта 2019

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

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

Фабрицио

...