6/3/2016 12:53 PM | |
Joined: 12/21/2012 Last visit: 3/9/2023 Posts: 13 Rating: (0) |
hello , i want to filter alarm by using Begin date/ time. & end date/time. date and time enter in i/o field or combobox.the below vbscript only usable for fixed time period for example last one hour alarm filtering. this script reading the system current time and subtracting one hour. in my case i want to choose begin date/time and end date/time.example 2016-05-31 10:00:00.00 AND 2016-06-03 10:00:00.00- one month alarm filtering. kindly give possible solution. Dim Obj,ExportDia Dim CurDate Dim CurTime Dim DateTime Dim ObjDia,STR_YEAR Dim sBeginTime,sEndTime,sFilter Dim sBeginYear,sBeginMonth,sBeginDay,sBeginHour,sBeginMinute,sBeginSecond Dim sEndYear,sEndMonth,sEndDay,sEndHour,sEndMinute,sEndSecond Dim Sel Dim sSql Set Obj = ScreenItems("Historical Alarm Control") sBeginTime = Year(STR_YEAR)& "-" & Month(Date) & "-" & Day(Date)& " " & Hour(Time)-1 & ":" & Minute(Time)& ":" & Second(Time)& ".999" sEndTime = Year(Date)& "-" & Month(Date) & "-" & Day(Date)& " " & Hour(Time) & ":" & Minute(Time)& ":" & Second(Time) & ".999" sSql = "DateTime <='"&sEndTime&"' AND " sSql = sSql & "DateTime >='"&sBeginTime&"'" MsgBox sSql Obj.DefaultMsgFilterSQL = sSql Obj.MsgFilterSQL = sSql MsgBox sSql Set Obj = ScreenItems("Historical Alarm Control") Obj.Export obj.ExportFilenameChangeable = 1 obj.ExportFilename = ("Alarm_"&Replace(Date,"/","_") &"_" & Replace(Time,":","_")) obj.ExportFilenameChangeable = 0 Obj.ExportShowDialog = 0 End Sub . ------------------------------------------------------------------------------------------ |
Last edited by: Min_Moderator at: 6/3/2016 2:28:45 PMNew subject after splitting |
|
Follow us on