当前位置: 代码迷 >> ASP >> 用asp+acess,怎样显示一个月里指定周的数据?解决方法
  详细解决方案

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

热度:153   发布时间:2012-04-18 15:01:59.0
用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) * 7
End Function 
  相关解决方案