标题: 如何判断今日是否是本月最后一个星期六 [打印本页]
作者: cnkook 时间: 2009-6-3 01:26 标题: 如何判断今日是否是本月最后一个星期六
请教：
想在每个月最后一个星期六，自动执行备份操作。如何判断今日是否是本月的最后一个星期六？感谢高手指点
作者: yishanju 时间: 2009-6-3 02:39
设置计划任务 就可以，设置成每个月最后一个周六执行备份
作者: huahua0919 时间: 2009-6-3 02:44
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
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
作者: slore 时间: 2009-6-3 04:07
| Quote: | |
|
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"
作者: huahua0919 时间: 2009-6-4 06:36
| Quote: | |
|
我的是不够拘谨，不过貌似没错误,一个月不可能有32天吧，就像你的代码如果一个星期有8天也会出错吧，呵呵，不过你的代码确实精辟。思路比较好。
作者: slore 时间: 2009-6-4 07:11
就像你的代码如果一个星期有8天也会出错吧
这个太牵强了吧:p
如果应该星期有8天就加8咯。
很固定的东西就不要没必要一定声明称常量。。。
你的是有会错的情况。
31天不是每个月都是的。(这个可是...存在的哦)
作者: cnkook 时间: 2009-6-5 02:12
谢谢各位，用计划任务控制时间了