|
cnkook
新手上路
积分 2
发帖 2
注册 2009-5-20
状态 离线
|
『楼 主』:
如何判断今日是否是本月最后一个星期六
请教：
想在每个月最后一个星期六，自动执行备份操作。如何判断今日是否是本月的最后一个星期六？感谢高手指点
|
|
 2009-6-3 01:26 |
|
|
yishanju
银牌会员
[b]看你妹啊[/b]
积分 1488
发帖 1357
注册 2006-5-20
状态 离线
|
『第
2 楼』:
设置计划任务 就可以，设置成每个月最后一个周六执行备份
|
有问题请发论坛或者自行搜索,再短消息问我的统统是SB |
|
|
2009-6-3 02:39 |
|
|
huahua0919
银牌会员
积分 1608
发帖 780
注册 2007-10-7
状态 离线
|
『第
3 楼』:
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 楼』:
| Quote: | 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 楼』:
| Quote: | Originally posted by slore at 2009-6-3 04:07 AM:
If Weekday(Date) = vbSaturday Then '如果是星期六 ... |
|
我的是不够拘谨，不过貌似没错误,一个月不可能有32天吧，就像你的代码如果一个星期有8天也会出错吧，呵呵，不过你的代码确实精辟。思路比较好。
|
|
|
2009-6-4 06:36 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
6 楼』:
就像你的代码如果一个星期有8天也会出错吧
这个太牵强了吧:p
如果应该星期有8天就加8咯。
很固定的东西就不要没必要一定声明称常量。。。
你的是有会错的情况。
31天不是每个月都是的。(这个可是...存在的哦)
|
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore |
|
|
2009-6-4 07:11 |
|
|
cnkook
新手上路
积分 2
发帖 2
注册 2009-5-20
状态 离线
|
|
|
2009-6-5 02:12 |
|
