……
If DateDiff("n", Now, ConvByteToDate) > 9 Then
Open "c:\\errlog.log" For Append As #1
Print #1, "now:", Now '当前时间
Print #1, "=>datMeasDate:", datMeasDate '接收的采集时间
Print #1, "=>lngOffset:", lngOffset '偏移量
Dim str As String
Dim strresult As String
Dim b As Integer
For b = 0 To 13 + intDataTotal * 19 - 1
str = bytData(b)
If Len(str) = 1 Then
str = "0" & str
End If
strresult = strresult & str
Next
Print #1, "=>bytData:", strresult '整个接收内容
Close #1
End If