[函数]得到一个日期当月最后一天是星期几-钱玉炜
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


[函数]得到一个日期当月最后一天是星期几

发表时间:2009/2/10 12:44:08 评论(0) 浏览(7368)  评论 | 加入收藏 | 复制
   
摘 要:[函数]得到一个日期当月最后一天是星期几
正 文:

Function getYMweekday(sDate As Date) As String

Dim intY As Integer
Dim intM As Integer

intY = Year(sDate)
intM = Month(sDate)
getYMweekday = WeekdayName(Weekday(DateSerial(intY, intM, 1)))

End Function

得到一个日期当月最后一天是星期几

Function getYMweekdayEnd(sDate As Date) As String

Dim intY As Integer
Dim intM As Integer

intY = Year(sDate)
intM = Month(sDate)
getYMweekdayEnd = WeekdayName(Weekday(DateSerial(intY, intM + 1, 0)))

End Function


Sub aa()
Debug.Print getYMweekday(Date)
Debug.Print getYMweekdayEnd(Date) 'date为2007-12-3
End Sub

 


Access软件网交流QQ群(群号:198465573)
 
 相关文章
根据某年某月第几个星期几返回当日日期的函数  【咱家是猫  2010/5/19】
确定某日在当月是第几个星期几的代码  【咱家是猫  2010/5/24】
【access自定义函数】统计某一个时间段内有多少个星期几\自定义...  【叶海峰  2012/2/28】
【Access入门】英文显示星期几,英文星期几,英文星期的示例  【麥田  2012/10/19】
【Access入门】中文显示星期几,中文星期几,中文星期的示例  【麥田  2012/10/20】
常见问答
技术分类
相关资源
文章搜索
关于作者

钱玉炜

文章分类

文章存档

友情链接