中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-10-01 03:50

共 47,813 主题排行 / 349,918 发帖 / 今日 0 篇 / 48,279 会员排行

DOS批处理 & 脚本技术（批处理室） » 如何判断今日是否是本月最后一个星期六

可打印版本　891 / 6

第1楼　cnkook	发表于 2009-06-03 01:26
新手上路　发帖 2　积分 2
如何判断今日是否是本月最后一个星期六请教：想在每个月最后一个星期六，自动执行备份操作。如何判断今日是否是本月的最后一个星期六？感谢高手指点

第2楼　yishanju	发表于 2009-06-03 02:39
银牌会员　发帖 1,357　积分 1,488
设置计划任务就可以，设置成每个月最后一个周六执行备份

第3楼　huahua0919	发表于 2009-06-03 02:44
银牌会员　发帖 780　积分 1,608
on error resume next newdate=split(date,"/") xdate=newdate(0)&"/"&newdate(1)&"/" for i=31 to 1 step -1 if weekday(xdate&i)=vbSaturday then msgbox "backup" exit for end if next

第4楼　slore	发表于 2009-06-03 04:07
铂金会员　发帖 2,478　积分 5,212
on error resume next ...不够拘谨哦 If Weekday(Date) = vbSaturday Then '如果是星期六 If Month(Date) <> Month(Date + 7) Then '如果下个星期六不在同月 MsgBox "今天是最后一个星期六哦",vbInformation,"Slore" Else MsgBox "今天是星期六,但不是最后一个哦",vbInformation,"Slore" End If Else MsgBox "今天就不是星期六",vbInformation,"Slore" End If '一句话版 'If (Weekday(Date) = vbSaturday) And (Month(Date) <> Month(Date + 7)) Then MsgBox "Yes"

第5楼　huahua0919	发表于 2009-06-04 06:36
银牌会员　发帖 780　积分 1,608
Originally posted by slore at 2009-6-3 04:07 AM: If Weekday(Date) = vbSaturday Then '如果是星期六 ... 我的是不够拘谨，不过貌似没错误,一个月不可能有32天吧，就像你的代码如果一个星期有8天也会出错吧，呵呵，不过你的代码确实精辟。思路比较好。

第6楼　slore	发表于 2009-06-04 07:11
铂金会员　发帖 2,478　积分 5,212
就像你的代码如果一个星期有8天也会出错吧这个太牵强了吧:p 如果应该星期有8天就加8咯。很固定的东西就不要没必要一定声明称常量。。。你的是有会错的情况。 31天不是每个月都是的。(这个可是...存在的哦)

第7楼　cnkook	发表于 2009-06-05 02:12
新手上路　发帖 2　积分 2
谢谢各位，用计划任务控制时间了

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023