编写控制代码。
Dim Date_riqi
Dim riqi
Set riqi=HMIRuntime.Tags("Date_riqi")
Dim Date_Year
Set Date_Year=HMIRuntime.Tags("Date_Year")
Dim Date_Month
Set Date_Month=HMIRuntime.Tags("Date_Month")
Dim Date_Day
Set Date_Day=HMIRuntime.Tags("Date_Day")
Dim Date_Hour
Set Date_Hour=HMIRuntime.Tags("Date_Hour")
Dim Date_Minute
Set Date_Minute=HMIRuntime.Tags("Date_Minute")
Dim Date_Second
Set Date_Second=HMIRuntime.Tags("Date_Second")
Dim flag1
Set flag1=HMIRuntime.Tags("Flag")
Date_Year.Read
Date_Year.Write CStr(Year(Now))
Date_Month.Read
Date_Month.Write CStr(Month(Now))
Date_Day.Read
Date_Day.Write CStr(Day(Now))
Date_Hour.Read
Date_Hour.Write CStr(Hour(Now))
Date_Minute.Read
Date_Minute.Write CStr(Minute(Now))
Date_Second.Read
Date_Second.Write CStr(Second(Now))
flag1.Read
If flag1.Value=1 Then
Date_riqi=CStr(Year(Now))&"-"&Right("00"&CStr(Month(Now)),2)&"-"&Right("00"&CStr(Day(Now)),2)
riqi.Read
riqi.Write""&Date_riqi&""
Dim UA_dayrpt_ID
Set UA_dayrpt_ID=HMIRuntime.Tags("@UA_dayrpt_ID")
Dim UA_dayrpt_Job
Set UA_dayrpt_Job=HMIRuntime.Tags("@UA_dayrpt_Job")
UA_dayrpt_ID.Read
UA_dayrpt_ID.Write -1
UA_dayrpt_Job.Read
UA_dayrpt_Job.Write 6
End If
编译保存。