月初,月末,本月天数的函数-Grant
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


月初,月末,本月天数的函数

发表时间:2009/5/6 8:43:47 评论(1) 浏览(7634)  评论 | 加入收藏 | 复制
   
摘 要:月初,月末,本月天数的函数
正 文:
月初,月末,本月天数的函数
accessQQ.com 2003-12-29



'? firstDayOfMonth("2003-2-4")
'  2003-2-1

'? lastDayOfMonth("2003-2-4")
'  2003-2-28

'? DaysInMonth("2003-2-4")
'  28

Function firstDayOfMonth(myDate As Date) As Date
    firstDayOfMonth = Cdate(Format(myDate, "yyyy-m-1"))
End Function

Function lastDayOfMonth(myDate As Date) As Date
    lastDayOfMonth = DateAdd("d", -1, DateAdd("M", 1, firstDayOfMonth(myDate)))
End Function

Function DaysInMonth(myDate As Date) As Integer
    DaysInMonth = DateDiff("d", firstDayOfMonth(myDate), lastDayOfMonth(myDate)) + 1
End Function

Access软件网交流QQ群(群号:198465573)
 
 相关文章
ACCESS查询当天数据的SQL语句(DateDiff函数)\Ac...  【麥田  2012/8/2】
【Access扫盲知识】日期时间相减得出年数,月数,季度,天数差的...  【麥田  2013/2/19】
查询入住天数,员工入住宿舍天数查询  【蒋元根  2013/5/21】
根据节假日表计算两日期间的工作日天数、n个工作日后的工作日日期  【网行者  2013/6/22】
两种方法实现按年月分组计算每月用工天数  【殷小宝  2013/6/26】
常见问答
技术分类
相关资源
文章搜索
关于作者

Grant

文章分类

文章存档

友情链接