- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 怎样获取本季度的第一天和最后一天 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149148)
-- 发布时间：2020/4/24 15:11:00
-- 怎样获取本季度的第一天和最后一天
老师您好，用代码怎样获取本季度的第一天和最后一天？谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:季度.zip |
-- 发布时间：2020/4/24 15:13:00
--
Dim
y As Integer = 2011
\'指定年份
Dim q As Integer = 2
\'指定季度
Dim dt1 As New
Date(y, 3 * (q - 1) + 1, 1) \'获取该季度的第一天
Dim dt2 As New
Date(y, 3 * q, Date.DaysInMonth(y,3 * q)) \'获取该季度的最后一天
Dim Filter As String
Filter =
"日期 >= #"
&
dt1
&
"# And
日期 <= #"
&
dt2
&
"#"
Tables("订单").Filter =
Filter
-- 发布时间：2020/4/24 15:14:00
--
学习
-- 发布时间：2020/4/24 15:19:00
--
好。我快拼凑完了
。等上线了再系统的学习一下。
-- 发布时间：2020/4/24 15:19:00
--
参考：http://www.foxtable.com/webhelp/topics/2720.htm