excel表格中的日期怎么通过vba计算日期所在季度?_excel_办公软件_脚本之家

相关文章推荐

神勇威武的消炎药 · excellvba引用计算机用户名,EXCE ...· 1 周前 ·

知识渊博的紫菜 · Excel 效能 - 優化效能阻礙的秘訣 ...· 1 周前 ·

呐喊的木耳 · 依法严惩危害食用农产品安全犯罪，守护人民群众 ...· 1 年前 ·

光明磊落的镜子 · 斗罗2相关小说在线阅读_斗罗2小说推荐-QQ ...· 1 年前 ·

慷慨大方的毛巾 · 掩埋在神话里的长生之谜——女娲造人背后的惊人 ...· 1 年前 ·

开心的啤酒 · 狗狗压迫神经瘫痪治疗过程，愿您少走弯路 - 知乎· 2 年前 ·

高大的凉茶 · 武炼巅峰漫画188 - 百度· 2 年前 ·

excel中使用vba求当前日期所在季度

Excel2003绿色版 EXCEL2003精简绿色版 (附excel2003绿色工具)

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怎么筛选介于两个日期之间的数据?

推荐文章

神勇威武的消炎药 · excellvba引用计算机用户名,EXCEL VBA 取当前登录用户名的多种实现方法

1 周前

知识渊博的紫菜 · Excel 效能 - 優化效能阻礙的秘訣 | Microsoft Learn

1 周前

1 年前

光明磊落的镜子 · 斗罗2相关小说在线阅读_斗罗2小说推荐-QQ阅读男生网

1 年前

慷慨大方的毛巾 · 掩埋在神话里的长生之谜——女娲造人背后的惊人真相_网易订阅

1 年前

开心的啤酒 · 狗狗压迫神经瘫痪治疗过程，愿您少走弯路 - 知乎

2 年前

高大的凉茶 · 武炼巅峰漫画188 - 百度

2 年前