CStr()函数转化，我随便编写了段小脚本运行是正常的，解决定时问题我觉得解决定时操作问题是没问题的，你可以尝试下：
Option Explicit
Function action
Dim objTag,objset
Dim systemtime
systemtime = Time
Set objTag = HMIRuntime.Tags("x")
objTag.Read
Set objset = HMIRuntime.Tags("aa1")
objset.Read
If CStr(systemtime) = CStr(objset.Value) Then
If objTag.Value = 1 Then
objTag.Write 0
Else
objTag.Write 1
End If
End If
End Function
aa1是需要手动输入的时间
system是系统时间
x是要操控的变量