使用Excel通过OPC访问WinCC的实时数据时，数据时间和OPC时间不致，差8小时。但OPC时间与电脑时间一致。WINCC设置为本机时区
图片说明：
最佳答案
”此为全局脚本中的时间转换代码
Function GetLocalDate(vtDate) ”得到当地时间，从格林尼治时间转换过来的
Dim DoY
Dim dso
Dim dwi
Dim strComputer, objWMIService, colItems, objItem
Dim TimeZone
Dim vtDateLocalDate
”—————————
”get time zone bias
”—————————
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_TimeZone")
For Each objItem In colItems
TimeZone = objItem.Bias / 60 ”offset TimeZone In hours
Next
”—————————
”check parameter vtDate
”—————————
If IsDate(vtDate) <> True Then
IS_GetLocalDate = False
Exit Function
End If
”—————————
”get day of the year
”—————————
DoY = DatePart("y", vtDate)
dso = DatePart("y", "31.03") – DatePart("w", "31.03") + 1
dwi = DatePart("y", "31.10") – DatePart("w", "31.10") + 1
If DoY >= dso And DoY < dwi Then
”sommer
TimeZone = TimeZone + 1 ”additional offset 1h in summer
End If
”—————————
”correction of date
”—————————
vtDateLocalDate = DateAdd("h", 1 * TimeZone, vtDate)
”—————————
”return UTC date and time
”—————————
GetLocalDate = vtDateLocalDate
End Function
直接拿去用吧 好使
如果电脑时间为北京时间，读回OPC变量的时间值后直接加8H即可
提问者对于答案的评价：
搞定
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc361856.html
微信扫一扫 
支付宝扫一扫