我在Wincc的VBS-Editor的标准模块里面建立了模块1,新建一个标准模块Add_Time，程序如下：
Function Add_Time(dTime,dBeginTime,dEndTime,Bstart)
Dim result,s

'当线体启动时，记录当前运行时间，按照分钟计时
If dTime >= dBeginTime And dTime <= dEndTime And Bstart=1 Then
result=result+1
End If
Add_Time=result
End Function
然后在动作里面新建一个动作1，设置触发器1S调用一次动作，然后创建如下程序：
Option Explicit
Function action
Dim sumResult
sumResult=0

Set sumResult=HMIRuntime.Tags("暂存数据2")

sumResult=Add_Time(8,6,10,1)

HMIRuntime.Tags("暂存数据2").Write sumResult

Msgbox sumResult
End Function
为什么"暂存数据2这个变量在条件满足时不能持续＋1呢，目前数据一直保持为1