哪位高手能说说具体步骤
最佳答案
军宝以下是一段VB的程序供你参考:希望给你帮助——猛虎
Dim ActDate
Dim Year_Sect
Dim Month_Sect
Dim Day_Sect
Dim Date_Mod
Dim Date_End
Dim ActTime
Dim Time_Mod_b
Dim Time_Mod_e
Dim DateString_b
Dim DateString_e
ActDate = Date
Year_Sect = Year(Date)
Month_Sect = Month(Date)
Day_Sect = Day(Date)
'Date_Mod = Year_Sect & "-" & Month_Sect & "-" & Day_Sect
Date_Mod = Day_Sect & "." & Month_Sect & "." & Year_Sect
ActTime = Time 'aktuelle Uhrzeit ermitteln - determine actual time
Time_Mod_b = DateAdd("n", -15, ActTime)
Time_Mod_e = DateAdd("n", -5, ActTime)
DateString_b = Date_Mod &" "& Time_Mod_b
DateString_e = Date_Mod &" "& Time_Mod_e
HMIRuntime.Tags("strVar_1").Write DateString_b '25.02.2004 21:10:00
HMIRuntime.Tags("strVar_2").Write DateString_e
strVar_1,strVar_2连接对应控件如趋势图的startime和endtime属性
提问者对于答案的评价:
呵呵 谢谢!
原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc275706.html