Dim sYear
Dim sMonth
Dim sDay
Dim sHour
Dim sMinute
Dim sSecond
Dim sDateTime
Dim objTag
Dim iYear
Dim iMonth
Dim iDay
Dim iHour
Dim iMinute
Dim iSecond

iYear=Year(Date)
iMonth=Month(Date)
iDay=Day(Date)
iHour=Hour(Time)
iMinute=Minute(Time)
iSecond=Second(Time)

sYear=CStr(iYear)
If iMonth<10 Then
sMonth="0" & CStr(iMonth)
Else
sMonth=CStr(iMonth)
End If
If iDay<10 Then
sDay="0" & CStr(iDay)
Else
sDay=CStr(iDay)
End If
If iHour<10 Then
sHour="0" & CStr(iHour)
Else
sHour=CStr(iHour)
End If
If iMinute<10 Then
sMinute="0" & CStr(iMinute)
Else
sMinute=CStr(iMinute)
End If
If iSecond<10 Then
sSecond="0" & CStr(iSecond)
Else
sSecond=CStr(iSecond)
End If

sDateTime=sYear & "-" & sMonth & "-" & sDay & " " & sHour & ":" & sMinute & ":" & sSecond

HMIRuntime.Trace sDateTime & vbCrLf

Set objTag = HMIRuntime.Tags("BeginTime")
objTag.Write sDateTime

其中：iYear、iMonth等等就是绑定IO域的变量值。上面代码是获取系统时间，只是示例。
最后，将sDateTime赋给WinCC内部变量：BeginTime