excel如何使用vba求当前日期所在季度
网友投稿
·
2023-10-29 11:10
·
行业资讯 ·
阅读 249
excel中使用vba求当前日期所在季度。 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季度，与正确答案一致。
excel中使用vba求当前日期所在季度。 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季度，与正确答案一致。
