Access取得一个季度的第一天或最后一天;Access获取季度第一天和季度最后一天有表示方法吗?-Victor Duane
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


Access取得一个季度的第一天或最后一天;Access获取季度第一天和季度最后一天有表示方法吗?

发表时间:2011/10/27 12:09:09 评论(2) 浏览(11257)  评论 | 加入收藏 | 复制
   
摘 要:取得一个季度的第一天或最后一天。
正 文:

当需要求当季的一个数量时,这两个函数会用得上;

以下函数求得当季的第一天与最后一天:

Function FirstDayInQuarter(Optional dtmDate As Date = 0) As Date
    If dtmDate = 0 Then
        dtmDate = Date
    End If
    FirstDayInQuarter = DateSerial(Year(dtmDate), Int((Month(dtmDate) - 1) / 3) * 3 + 1, 1)
End Function
Function LastDayInQuarter(Optional dtmDate As Date = 0) As Date
    If dtmDate = 0 Then
        dtmDate = Date
    End If
    LastDayInQuarter = DateSerial(Year(dtmDate), Int((Month(dtmDate) - 1) / 3) * 3 + 4, 0)
End Function


附   件:

点击下载此附件


图   示:


Access软件网交流QQ群(群号:198465573)
 
 相关文章
显示当前季度示例  【麥田  2010/2/24】
[access查询]以年、周、季度做查询  【蒋元根  2011/2/25】
【access入门】获取3个月前(一个季度前),3个月后(一个季度...  【麥田  2011/11/7】
【Access扫盲知识】日期时间相减得出季度差的示例,DateDi...  【麥田  2013/2/16】
【Access扫盲知识】日期时间相减得出年数,月数,季度,天数差的...  【麥田  2013/2/19】
关于 Victor Duane 老师的 “取得一个季度的第一天或最...  【半夜罗  2020/5/17】
常见问答
技术分类
相关资源
文章搜索
关于作者

Victor Duane

文章分类

文章存档

友情链接