首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > ASP >

用asp+acess,怎样显示一个月里指定周的数据?解决方法

2012-04-18 
用asp+acess,怎样显示一个月里指定周的数据?有一个表单,[ ]年[ ]月第[1,2,3,4]周我想实现表单提交后,显示

用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 

热点排行