[问题求助] VBS如何根据当前是否在指定日期范围内执行不同操作？

ygqiang

[已解决]xp或win7系统，局域网环境(不能连外网)，批处理如何判断夏季或者冬季时间段？


夏季或者冬季时间段，判断依据如下：

夏季时间：4月的第三周周一 ---10月的第二周周日
如果在每年这个时间段内，每天下午5:55，自动关机

冬季时间：10月的第三周周一 --次年4月的第二周周日
如果在每年这个时间段内，每天下午5:25，自动关机



以2016年为例，
夏季时间是2016.4.18—2016.10.9，
冬季时间是2016.10.10—2017.4.16（注意这个是2017年）

以2017年为例，
4.1-4.2在一个周内，属于4月第一周
4.3-4.9是4月第二周
4.10是4月的第三周周一，夏季时间开始。。。。

ygqiang

回复 14# pcl_test


    夏季时间：4月的第三周周一



4月10日明显是这个夏季时间段啊..

4.1-4.2是4月第一周
4.3-4.9是4月第二周
4.10是4月第三周周一

pcl_test

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

ygqiang

vbs代码小问题，日期范围判断，求教。

比如当前是4月10日，应该运行z-jxia，实际却运行z-jdon


echo 夏季时间：4月的第三周周一 ---10月的第二周周日
echo 冬季时间：10月的第三周周一 ---次年4月的第二周周日

On Error Resume next

Set ws = CreateObject("Wscript.Shell") 

d1=year(now) & right("0"&month(now),2) & right("0"&day(now),2)
d2=getday(year(now)&"-4",3,1)  '年月,第几周,星期几
d3=getday(year(now)&"-10",2,7)
If d1 >=d2 and d1 <=d3 Then
    ws.run "c:\z-jxia.bat"
Else
    ws.run "c:\z-jdon.bat"
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
复制代码

dnvplj

谢谢11楼朋友的回复，明白。

ygqiang

回复  pcl_test
请问版主：该代码是运后就可以，还是：加到启动项，每次开机运行此vbs？
dnvplj 发表于 2016-10-8 22:39

    加到启动项，每次开机运行此vbs

dnvplj

回复 8# pcl_test
请问版主：该代码是运后就可以，还是：加到启动项，每次开机运行此vbs？

ygqiang

回复 8# pcl_test


谢谢

pcl_test

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

ygqiang

回复 6# pcl_test


    多谢。

d2=getday("2016-4",3,1)  '年月,第几周,星期几
d3=getday("2016-10",2,7)

这里的2016不能固定吧？因为以后可能是2017，2018，。。。等等年代。。



夏季时间：4月的第三周周一 ---10月的第二周周日
冬季时间：10月的第三周周一 --次年4月的第二周周日

每年的这个时间段，4月和10月，都不是固定的日期。

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
复制代码

GNU

回复 2# codegay


    难点在于日期计算而不是任务计划

ygqiang

回复 3# codegay


    如何智能判断4月份或10月份的某1天，具体属于冬季还是夏季呢？

判断依据如下
夏季时间：4月的第三周周一 ---10月的第二周周日
冬季时间：10月的第三周周一 --次年4月的第二周周日

wskwfkbdn

数学不好，我闪了

codegay

任务计划本来就可以设置就这个时间段，非要自己找虐。