中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

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

作者:

标题: 如何判断今日是否是本月最后一个星期六

上一主题 | 下一主题

cnkook
新手上路

积分 2
发帖 2
注册 2009-5-20
状态离线

『楼主』: 如何判断今日是否是本月最后一个星期六使用 LLM 解释/回答一下

请教：
想在每个月最后一个星期六，自动执行备份操作。如何判断今日是否是本月的最后一个星期六？感谢高手指点

2009-6-3 01:26

查看资料发短消息网志

编辑帖子回复引用回复

yishanju
银牌会员

[b]看你妹啊[/b]

积分 1488
发帖 1357
注册 2006-5-20
状态离线

『第 2 楼』: 使用 LLM 解释/回答一下

设置计划任务就可以，设置成每个月最后一个周六执行备份

有问题请发论坛或者自行搜索,再短消息问我的统统是SB

2009-6-3 02:39

查看资料发短消息网志

编辑帖子回复引用回复

huahua0919
银牌会员

积分 1608
发帖 780
注册 2007-10-7
状态离线

『第 3 楼』: 使用 LLM 解释/回答一下



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

2009-6-3 02:44

查看资料发送邮件访问主页发短消息网志

编辑帖子回复引用回复

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 4 楼』: 使用 LLM 解释/回答一下

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"

S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore

2009-6-3 04:07

查看资料发短消息网志

编辑帖子回复引用回复

huahua0919
银牌会员

积分 1608
发帖 780
注册 2007-10-7
状态离线

『第 5 楼』: 使用 LLM 解释/回答一下