Sub X6309X94AE1X0000X0000_X6309X94AE1X0000e_X6309X94AE1X0000d_X6309X94AE1X0000r_X6309X94AE1X00009_OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)

Dim starttime
Dim endtime

Dim ConnectionObj
Dim Connectionstring
Dim CommandStr_TimeStart
Dim CommandStr_TimeEnd
Dim CommandObj
Dim RecordSetObj

Dim resultt
Dim temp1
Dim temp2

starttime=HMIRuntime.Tags("TimeStart").Read
endtime=HMIRuntime.Tags("TimeEnd").Read

HMIRuntime.Tags("Result").Write 0

Connectionstring="Provider=WinCCOLEDBProvider.1;Catalog=CC_cc_09_01_07_13_16_32R;Data Source=.\WinCC"
CommandStr_TimeStart="Tag:R,'cc\NewTag',"
CommandStr_TimeStart=CommandStr_TimeStart+"'"+starttime+"'"+","+"'"+endtime+"'"

Set ConnectionObj=CreateObject("ADODB.Connection")
ConnectionObj.ConnectionString=Connectionstring
ConnectionObj.CursorLocation=3
ConnectionObj.Open

Set RecordSetObj=CreateObject("ADODB.Recordset")
Set CommandObj=CreateObject("ADODB.Command")

Set CommandObj.ActiveConnection=ConnectionObj
CommandObj.CommandType=1

CommandObj.CommandText=CommandStr_TimeStart
Set RecordSetObj=CommandObj.Execute

RecordSetObj.MoveFirst
temp1=RecordSetObj.Fields(2).Value

RecordSetObj.MoveLast
temp2=RecordSetObj.Fields(2).Value

resultt=temp2-temp1
HMIRuntime.Tags("Result").Write resultt

RecordSetObj.Close
Set RecordSetObj=Nothing
Set CommandObj=Nothing
ConnectionObj.Close
Set ConnectionObj=Nothing
End Sub
输入时间时,要把本地的归档时间转换为格林泥治时间,这样就好了.可以在WINCC工程里的计算机属性里设置.