pcl_test

vbs

d1=year(now) & right("0"&month(now),2) & right("0"&day(now),2)
d2=getday("2016-4",3,1)  '年月,第几周,星期几
d3=getday("2016-10",2,7)
If d1 >=d2 and d1 <=d3 Then
    msgbox "每天下午5:55，自动关机"
Else
    msgbox "每天下午5:25，自动关机"
End If


Function getday(ym,w,ww)
    For i=0 To 6
        d=dateadd("d",w*7-1,ym)-i
        If weekday(d,2) = ww Then
            getday=year(d) & right("0"&month(d),2) & right("0"&day(d),2)
        End If
    Next
End Function
复制代码

pcl_test

回复 7# ygqiang
year(now)&"-4"

pcl_test

4月10号还在上一年的冬季时间：10月的第三周周一 ---次年4月的第二周周日