Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

确定某日在当月是第几个星期几的代码

时 间:2010-05-24 08:13:48
作 者:咱家是猫   ID:85  城市:广州
摘 要:确定某日在当月是第几个星期几的代码
正 文:


Private Function GetWeekDayStr(SolarDate As Date, m As Byte, n As Byte, w As Byte) As String
'根据日期查询是当月的第几周的周几
    Dim tempDate As Date, tempW As Integer
    tempDate = DateSerial(Year(SolarDate), Month(SolarDate), 1)
    tempW = Weekday(tempDate)
    m = Format(SolarDate, "mm")
    n = Format(SolarDate, "WW") - Format(tempDate, "WW") + 1
    w = Weekday(SolarDate)
    If tempW > w Then n = n - 1
   
End Function
Sub test()
    Dim d As Date, m As Byte, n As Byte, w As Byte
    d = #1/18/2009#
    Call GetWeekDayStr(d, m, n, w)
    Debug.Print d & "是" & m & "月的第" & n & "个" & WeekdayName(w)
End Sub

Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助