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

这个是论坛里斑竹的程序。