填空类快速求日期题

解决技巧参考

总结一下

VB

xxx.vbs
打开一个目录, 右键-新建文本文件
重命名 xxx.vbs (需要显示后缀名)，再用记事本打开来修改；
vbs是VB Script缩写；
因为VB中有2个很简单的时间函数datediff(时间间隔)和dateadd(时间相加)
DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])
DateAdd(interval, number, date)
【interval 参数 】
yyyy 年
q 季度
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
n 分钟
s 秒
语法

• 'vb中注释是单引号...msgbox意思是MessageBox 就是弹出对话框
• 'vb中不需要分号结尾,
• '这题因为是第多少天 所以需要-1
• 'vb中分割字符串用 & vbCrLf 表示换行
  栗子

1. msgbox dateadd("d",1000,"2014-11-9")是求2014年11月9日，1000天后的日期---【2017-8-5】
2. msgbox datediff("d", "2014-11-9", "2017-8-5") 是求2014年11月9日和2017年8月5日之间的有多少天的间隔---【1000】

3. 'msgbox "5343:" & dateadd("d", 5343-1, "1777-4-30") & vbCrLf & "8113:" & dateadd("d", 8113-1, "1777-4-30")

   
   结果

EXCEL

貌似只能计算1900后开始的日期，1777年那个就算不了了