编写控制代码。

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

编译保存。