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


取得一个季度的第一天或最后一天

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

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

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

 

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】
 
 访客评论
2011/10/27小童
赞个·····

2011/10/27麥田
管用

总记录:2篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

Victor Duane

文章分类

文章存档

友情链接