excel表格中的日期怎么通过vba计算日期所在季度?
番茄系统家园 · 2022-11-12 09:38:22
excel中使用vba求当前日期所在季度
- 软件名称：
- Excel2003绿色版 EXCEL2003精简绿色版 (附excel2003绿色工具)
- 软件大小：
- 13.3MB
- 更新时间：
- 2012-06-19
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季度，与正确答案一致。
免责声明： 凡标注转载/编译字样内容并非本站原创，转载目的在于传递更多信息，并不代表本网赞同其观点和对其真实性负责。如果你觉得本文好，欢迎推荐给朋友阅读；本文链接： https://m.nndssk.com/rjwt/118489LhLgJU.html。
猜你喜欢
最新应用
热门应用
