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

计算所属日期的第几个星期,星期几的日期的函数

时 间:2007-10-13 00:16:36
作 者:Victor Duane   ID:70  城市:闵行
摘 要:计算所属日期的第几个星期,星期几的日期的函数
正 文:

Function uf_NthWeekday(dtmDate As Date, intNth As Integer, intWeekday As Integer) As Date
'===============================================================================
'-函数名称:         uf_NthWeekday
'-功能描述:         计算所属日期的第几个星期,星期几的日期
'-输入参数说明:     参数1:dtmDate 要求计算的当前日期
'                   参数2:intNth  当前日期的第几个星期
'                   参数3:intWeekday  要求显示星期几
'-返回参数说明:     返回你要显示的当前日期的第几个星期,星期几的日期
'-使用语法示例:     uf_NthWeekday(date,2,3) date的日期为2007年10月11日
'-参考:             《VBA高级开发指南》
'-使用注意:
'-兼容*:           2000,XP,2003
'-作者:             Victor Duane
'-更新日期:        2007-10-11
'===============================================================================


If intNth < 1 Then
    'MsgBox "对不起,你要求输入的星期数不能小于1,请重新输入", vbCritical, "提示"
    Exit Function
End If

If intWeekday < 1 or intWeekday > 7 Then
    'MsgBox "对不起,你要求输入的星期几必须在1~7之间,请重新输入", vbCritical, "提示"
    Exit Function
End If

Dim dtmStartday As Date
dtmStartday = DateSerial(Year(dtmDate), Month(dtmDate), 1)

Do While Weekday(dtmStartday) <> intWeekday + 1
    dtmStartday = dtmStartday + 1
Loop

uf_NthWeekday = dtmStartday + (intNth - 1) * 7

End Function



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

常见问答:

技术分类:

相关资源:

专栏作家

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