高校问答阿里巴巴的成立:怎样用程序计算母亲节?
来源：百度文库 编辑：高校问答 时间：2024/04/28 02:33:54
母亲节是每年五月的第二个星期天,用VBScript写一段代码实现在母亲节的时候自动弹出对话框,表示问候,怎么写?
分2步判断：
1.今天是否是5月
2.今天是否是第二个星期天
1.很容易判断，关键是2，判断星期几也容易，主要就是判断是否是第二个星期天。
通过分析：如果5.1是星期一，那么第二个星期天应该是5.14，依次得到下表
5.1的星期 ////第二个星期天的日期
1 ////14
2 ////13
3 ////12
4 ////11
5 ////10
6 ////9
7 ////8
观测上表可以得出，不过5.1是星期几，两数相加都是15；
代码如下：
dim a,b
a=date()
b=year(a) &"-05-01"
if (month(a)=5) and (weekday(a)=7) then
if (weekday(b)+day(a)=15) then msgbox "母亲节快乐"
end if