这里有一种方法:
公共RT时间(9)
'(1)年,(2)月,(3)月的某一天,(4)一天的某一小时,(5)分钟,
'(6)秒,(7)微秒,(8)一周中的某一天(1-7;周日=1),(9)一年中的某个日子。
'主程序
开始进度
当程序发送到记录器时,PortSet(9,1)'打开SW12
扫描(1,秒,0,0)
实时(RTime())
“要关闭SW12,然后在10分钟后每天午夜打开一次:
如果TimeIntoInterval(101440,Min),则PortSet(9,1)'打开SW12
“要关闭SW12,然后在10分钟后每周打开一次(星期一午夜):
如果RTime(8)=2,则在周一
如果TimeIntoInterval(01440,Min)Then PortSet(9,0)'关闭SW12
如果TimeIntoInterval(101440,Min),则PortSet(9,1)'打开SW12
结束如果
下一次扫描
结束程序