求日期题超快解决办法. 蓝桥杯省赛B组第2题

求日期题超快解决办法. 蓝桥杯省赛B组第2题

随便打开一个目录, 右键-新建文本文件
重命名 xxx.vbs (需要显示后缀名)
vbs是VB Script缩写... 
因为VB中有2个很简单的时间函数datediff(时间间隔)和dateadd(时间相加)
所以日期的填空题能1分钟内做完
=========================我叫分割线=========================
DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])
DateAdd(interval, number, date)
interval 参数 
yyyy 年 
q 季度 
m 月 
y 一年的日数 
d 日 
w 一周的日数 
ww 周 
h 小时 
n 分钟 
s 秒 
=========================我叫分割线=========================
2015年4月11日省赛C/C++的B组第2题
星系炸弹


在X星系的广袤空间中漂浮着许多X星人造“炸弹”，用来作为宇宙中的路标。
每个炸弹都可以设定多少天之后爆炸。
比如：阿尔法炸弹2015年1月1日放置，定时为15天，则它在2015年1月16日爆炸。
有一个贝塔炸弹，2014年11月9日放置，定时为1000天，请你计算它爆炸的准确日期。


请填写该日期，格式为 yyyy-mm-dd 即4位年份2位月份2位日期。比如：2015-02-19
请严格按照格式书写。不能出现其它文字或符号。
=========================我叫分割线=========================
msgbox dateadd("d",1000,"2014-11-9")
'vb中注释是单引号...msgbox意思是MessageBox 就是弹出对话框
'vb中不需要分号结尾, 函数调用 直接可以用 [func 参数]
'更规范 稍微符合C语言的...Call Msgbox("xxxxx")
=========================我叫分割线=========================
就这么一行, 然后保存, 运行这个vbs

转载自：点击打开链接