Excel使用vba来查找当前日期的季度。
1.首先我们打开一个工作样表作为例子。
2.使用alt f11组合键进入vbe编辑器，插入一个新模块，并在模块中输入以下代码：
子查询季度()
将jd标注为日期
昏暗的消息
Jd=InputBox('请输入日期：')
Msg=' quarter:'日期部分(' q 'jd)
MsgBox消息
末端接头
3.我们声明jd变量是日期类型，这里声明Msg变量没有给出具体的类型，所以vba会默认为variant类型。
4.给jd变量赋值。我们使用inputbox函数，设置提示“请输入日期：”然后使用datepart函数对inputbox返回的日期值进行季度判断。它的参数是Q，记住Q的输入必须用双引号括起来。
5.因为我们这里问的是指定日期所在的季度，所以不需要判断周日数的起止或者全年天数的起止，也就是把日期参数缩写了。
6.让我们运行这个宏，并将日期指定为2016年8月19日，以查看结果。得到第三节，与正确答案一致。
