Set objArray= CreateObject("hdCOMInterface.hdCOMClass.1")

Dim ip,port,bakip,bakport,timeout

ip= "168.2.8.111"

port= 5673

bakip= "127.0.0.3"

bakport= 5678

timeout= 3

Dim ret

ret = objArray.com_nt_connect (ip,port,bakip,bakport,timeout)

Msgbox "com_nt_connect result is:" &ret

Dim id

id=17

Dim nStartSec,nStartMsec,nEndSec,nEndMsec

Dim bsStartTime,bsEndTime

bsStartTime="2015-05-27 00:00:00"

bsEndTime="2015-05-27 18:00:00"

objArray.com_convert_bstr_2_time bsStartTime,nStartSec,nStartMsec

objArray.com_convert_bstr_2_time bsEndTime,nEndSec,nEndMsec

nStartMsec = CLng(0)

nEndMsec = CLng(0)

Dim shownum

Dim dvalueMin,dvalueMax,dvalueMean

result = CLng(objArray.com_ar_query_min_records(id,nStartSec,nStartMsec,nEndSec,nEndMsec, dvalueMin))

Msgbox "com_ar_query_min_records错误码是：" &result

if result=0 then

shownum = "com_ar_query_min_records调用后dValue:" &dvalueMin

MsgBox shownum

end if

result = CLng(objArray.com_ar_query_max_records(id,nStartSec,nStartMsec,nEndSec,nEndMsec, dvalueMax))

Msgbox "com_ar_query_max_records错误码是：" &result

if result=0 then

shownum = "com_ar_query_max_records调用后dValue:" &dvalueMax

MsgBox shownum

end if

result = CLng(objArray.com_ar_query_mean_records(id,nStartSec,nStartMsec,nEndSec,nEndMsec, dvalueMean))

Msgbox "com_ar_query_mean_records错误码是：" &result

if result=0 then

shownum = "com_ar_query_mean_records调用后dValue:" &dvalueMean

MsgBox shownum

end if

objArray.com_nt_disconnect

Set objArray= nothing