填空类快速求日期题
2019-02-22 本文已影响0人
ffffffffffffly
总结一下
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 表示换行
栗子
- msgbox dateadd("d",1000,"2014-11-9")是求2014年11月9日，1000天后的日期---【2017-8-5】
- msgbox datediff("d", "2014-11-9", "2017-8-5") 是求2014年11月9日和2017年8月5日之间的有多少天的间隔---【1000】
-
'msgbox "5343:" & dateadd("d", 5343-1, "1777-4-30") & vbCrLf & "8113:" & dateadd("d", 8113-1, "1777-4-30")
结果
EXCEL
貌似只能计算1900后开始的日期，1777年那个就算不了了
