那样的话在 循环策略 再加上 分钟和 秒钟 就行 !还有星期显示都可以
if $week=1 then
星期="星期一"
endif
if $week=2 then
星期="星期二"
endif
if $week=3 then
星期="星期三"
endif
if $week=4 then
星期="星期四"
endif
if $week=5 then
星期="星期五"
endif
if $week=6 then
星期="星期六"
endif
if $week=0 then
星期="星期日"
endif
小时.Value=!TimeGetHour(!TimeGetCurrentTime( ) )
分钟.Value=!TimeGetMinute(!TimeGetCurrentTime( ) )
秒钟.Value=!TimeGetSecond(!TimeGetCurrentTime( ) )
IF 输入小时.Value = 小时.Value AND 分钟.Value = 输入分钟.Value AND 输入秒钟.Value = 秒钟.Value THEN
R_0 = 1
ELSE
R_0 = 0
ENDIF
IF 输入小时1.Value = 小时.Value AND 分钟.Value = 输入分钟1.Value AND 输入秒钟.Value = 秒钟.Value THEN
R_10 = 1
ELSE
R_10 = 0
ENDIF