PI ProcessBook图表控件设置时间范围

最近研究了一下PI，这里使用了PI ProcessBook 里面的Trend、Bar和XYPlot，主要是用这三个控件显示一个时间段的图表，XYPlot必须使用2个tag，具体功能我就不说了，很简单，看代码。


Dim ValTime As Variant, ValStatus As Variant, ValIndex As Long




Private Sub Calendar2_NewYear()


'Calendar1=vbCalGreg


Calendar1 = vbCalHijri


Calendar2 = vbCalHijri


Label1.Caption = Format(Calendar1.Value, "yyyy-mm-dd")


Label2.Caption = Format(Calendar2.Value, "yyyy-mm-dd")


Trend1.SetTimeRange Format(Calendar1.Value, "yyyy-mm-dd"), Format(Calendar2.Value, "yyyy-mm-dd")


Bar1.SetTimeRange Format(Calendar1.Value, "yyyy-mm-dd"), Format(Calendar2.Value, "yyyy-mm-dd")


XYPlot1.SetTimeRange Format(Calendar1.Value, "yyyy-mm-dd"), Format(Calendar2.Value, "yyyy-mm-dd")


End Sub