读书人

用asp+acess怎样显示一个月里指定周

发布时间: 2012-04-18 15:01:59 作者: rapoo

用asp+acess,怎样显示一个月里指定周的数据?
有一个表单,[ ]年 [ ]月 第[1,2,3,4]周
我想实现表单提交后,显示数据库里相应的数据。
数据库的表里有一个时间的字段time,格式是yy-mm-dd,例如,我选择2012年4月第2周,则将表里符合这个范围的数据都显示出来,请问应该怎么做?谢谢


[解决办法]

VBScript code
Function getStartDay(y,m,s)    '传递三个参数,年、月和第几个星期数    '本函数以第一个星期一为第一周    'y 的范围为大于1900的四位整数    'm 的范围为1至12的整数    's 的取值范围为自然数    '当取值失败,返回当前日期    Dim tmpDate,firstday    If y < 1900 Or m < 1 Or m > 12 Or s < 1 Or y <> Int(y) Or m <> Int(m) Or s <> Int(s) Then        getStartDay = Date()    End If    tmpDate = CDate(y & "-" & m & "-1")    firstday = Weekday(tmpDate)    If firstday > 2 Then        firstday = tmpDate + 9 - firstday    ElseIf firstday = 1 Then        firstday = tmpDate + 1    Else        firstday = tmpDate    End If    getStartDay = firstday + (s - 1) * 7End Function 

读书人网 >ASP

热点推荐