day(time)  month(time) year(time)

解决方案 »

  1.   

    不是可以用datadiff中的函数嘛???
    datadiff(interval,date1,date2[,dayofweek[,weekofyear]])注意interval的取值,dyaofweek weekofyear这些参数的用法
      

  2.   

    1、
      sub a(date1,date2)
        dim days
        days=DateDiff("d",date1,date2)
        for i=1 to days
          response.write DateAdd("d",i,date1) & "<br>"
        next
      end sub
      

  3.   

    2、
       sub b(date1,date2)
        dim days
        months=DateDiff("n",date1,date2)
        for i=1 to months
          response.write month(DateAdd("m",i,date1)) & "月<br>"
        next
      end sub
      

  4.   

    3、
       sub b(dyear,dmonth)
        dim date1,date2
        date1=dyear & "-" & dmonth & "-1" 
        if dmonth=12 then
           date2=dyear+1 & "-1-1" 
        else
           date2=dyear & "-" & dmonth+1 & "-1" 
        end if
        response.write dyear & "年" & dmonth & "月的开始日期是:" & date1 & "<br>"
        response.write dyear & "年" & dmonth & "月的结束日期是:" & DateAdd("d",-1,date2) & "<br>"    
      end sub
      

  5.   

    1)如何获取一段时间内所有天.DateDiff("d",startDay,EndDay)+For循环语句
    2)如何获取一段时间内所有月.DateDiff("M",startDay,EndDay)+For循环语句
    3)如何某月的开始,结束日期,2月有2005-2-1,2005-2-28,
    每月开始日期肯定是1号,结束日期:
    本月的第一天:
    DateAdd(ms,-3,DateAdd(mm, DateDiff(m,0,Now())+1, 0))
    另:一个月第一天的SQL 脚本:
         SELECT DATEADD(mm, DATEDIFF(mm,0,getdate()), 0)本周的星期一
         SELECT DATEADD(wk, DATEDIFF(wk,0,getdate()), 0)一年的第一天
         SELECT DATEADD(yy, DATEDIFF(yy,0,getdate()), 0)季度的第一天
         SELECT DATEADD(qq, DATEDIFF(qq,0,getdate()), 0)当天的半夜
         SELECT DATEADD(dd, DATEDIFF(dd,0,getdate()), 0)上个月的最后一天
          SELECT dateadd(ms,-3,DATEADD(mm, DATEDIFF(mm,0,getdate()), 0))
    去年的最后一天
         SELECT dateadd(ms,-3,DATEADD(yy, DATEDIFF(yy,0,getdate()), 0))本月的最后一天
         SELECT dateadd(ms,-3,DATEADD(mm, DATEDIFF(m,0,getdate())+1, 0))本年的最后一天
         SELECT dateadd(ms,-3,DATEADD(yy, DATEDIFF(yy,0,getdate())+1, 0))。本月的第一个星期一
         select DATEADD(wk, DATEDIFF(wk,0,                            
                    dateadd(dd,6-datepart(day,getdate()),getdate())   
                                                     ), 0) 
    转成VB语句就可以用了。