建议把 result 作为自定义函数 Add_Time 的一个输入变量：

Function Add_Time(dTime,dBeginTime,dEndTime,Bstart, result)
'Dim result,s    内部临时变量，默认值为 0。每次调用都会从 0 开始加。取消该语句

'当线体启动时，记录当前运行时间，按照分钟计时
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, sumResult)

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

Msgbox sumResult
End Function