WINCC7.5-根据时间跨度选择趋势

yyyy-MM-dd hh:mm:ss

“yyyy”：表示四位数的年份，例如：2022。
“MM”：表示两位数的月份，从01到12。
“dd”：表示两位数的日期，从01到31。
“hh”：表示12小时制的小时数，从00到12。
“mm”：表示分钟数，从00到59。
“ss”：表示秒数，从00到59。

yyyy-MM-dd HH:mm:ss

“yyyy”：表示四位数的年份，例如：2022。
“MM”：表示两位数的月份，从01到12。
“dd”：表示两位数的日期，从01到31。
“HH”：表示24小时制的小时数，从00到23。
“mm”：表示分钟数，从00到59。
“ss”：表示秒数，从00到59。

显示按钮

https://www.360doc.cn/article/67499443_997134479.html


Sub OnClick(ByVal Item)                                                                                                         
Dim Options, myTrend
Dim TrendName(9),TrendCount
set myTrend = ScreenItems("myTrend")  '在线趋势空间名称
Dim i
For i=1 To myTrend.TrendCount
	myTrend.TrendIndex=i  
	myTrend.TrendRemove=myTrend.TrendName'添加曲线前先删除所有曲线
Next
Set Options=ScreenItems("Options")'曲线选择选项组控件名称
Select Case Options.Process'根据选择项设定曲线条数及各个归档变量名称
	Case 1'选择第1项
	TrendName(0)="ProcessValueArchive\OFP"
	TrendCount=1
	Case 2'选择第2项
	TrendName(0)="ProcessValueArchive\OMP"  
	TrendCount=1
	Case 4'选择第3项
	TrendName(0)="ProcessValueArchive\OFP"
	TrendName(1)="ProcessValueArchive\OMP"  
	TrendCount=2
End Select
For i = 1 To TrendCount '添加趋势并设定曲线的属性
	myTrend.TrendAdd = TrendName(i-1)
 	myTrend.TrendTagName= TrendName(i-1)'曲线名称  
	myTrend.TrendTrendWindow= "Trend window 1"'曲线窗口名称  
	myTrend.TrendTimeAxis= "Time axis 1"'时间轴  
	myTrend.TrendValueAxis= "Value axis 1"'数值轴  
	Select Case i '设定各曲线颜色
	Case 1
	myTrend.TrendColor= RGb(0,0,0)'黑色         
	Case 2
	myTrend.TrendColor= RGb(255,0,0)'红色         
	Next
	'设置曲线开始时间和结束时间
	Dim BeginTime,endTime
	Set BeginTime=ScreenItems("BeginTime")
	Set endTime=ScreenItems("EndTime")
	myTrend.TimeAxisIndex =0  '时间轴索引
	myTrend.Online =0
	myTrend.TimeAxisRangeType =1 '时间轴类型-时间范围
	myTrend.TimeAxisBeginTime  = BeginTime.value   '起始时间
	myTrend.TimeAxisEndTime =endtime.value     '结束时间
End Sub

WINCC7.5 项目文件下载地址：
https://download.csdn.net/download/weixin_37928884/88493271