您可能感兴趣的话题： excel

核心提示：excel表格中的日期怎么通过vba计算日期所在季度？excel表格中有很多日期，想知道这些日期都是哪个季度的，该怎么办呢？下面我们就来看看求出日期所在季度的教程，需要的朋友可以参考下。

　　1、首先我们打开一个工作样表作为例子。

　　2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

　　Sub 查询季度()

　　Dim jd As Date

　　Dim Msg

　　jd = InputBox("请输入一个日期:")

　　Msg = "季度: " & DatePart("q", jd)

　　MsgBox Msg

　　End Sub

　　3、我们声明jd变量为日期类型，这里声明Msg变量并没有给出具体类型，所以vba会默认为variant类型。

　　4、给jd变量赋值，我们使用inputbox函数，并设置一个提示“请输入一个日期：”，然后使用datepart函数来对inputbox返回的日期值，进行季度判断。其参数为q。记住q的输入必须以双引号包括。

　　5、因为我们这里求的是指定日期所在的季度，所以不需要对星期天数起止或年度天数起止进行判断，也就是简写了日期的参数。

　　6、我们运行一下这个宏，指定日期为2016/8/19，来看看得到的结果。得到3季度，与正确答案一致。

<div class=\"