代碼如下:

<%
'轉(zhuǎn)發(fā)時請保留此聲明信息,這段聲明不并會影響你的速度!
'**************************   【日期擴(kuò)展類】ver 0.1.1********************************
'開發(fā)人:        sman、net fetch
'開發(fā)日期:        2005-11-11
'版本號:        ver 0.1.1

'官方網(wǎng)站:http://www.sman.cn     http://www.ad0.cn
'電子郵件:huihui3030@126.com    netfetchstudio@163.com  
'每日在線qq:19341293             32050450
'版權(quán)聲明:版權(quán)沒有,盜版不究,源碼公開,歡迎盜版,歡迎你到官方網(wǎng)站來尋求支持。
'如有任何改進(jìn)之處，麻煩轉(zhuǎn)發(fā)或者反饋一份到 huihui3030@126.com、netfetchstudio@163.com，thanks!
'詳細(xì)使用說明或范例請見下載附件或到官方站點(diǎn)或email聯(lián)系下載！
'************************************************************************************

class datefunex

    private d_
    private firstweekofyear_
    private firstdayofweek_

    private sub class_initialize()
        d_                     = date() '默認(rèn)當(dāng)前日期
        firstdayofweek_     = 2    'vbmonday
        firstweekofyear_     = 1    '由 1 月 1 日所在的星期開始。
    end sub

    '屬性 setdate 日期
    public property let setdate(value) 
        on error resume next
        if isnumeric(value) then
            value = cint(value)
            if len(value)< 3 then value = "20" & right("0"&value,2)
            value = value & "-1" 
        end if 
        d_ = cdate(value)
    end property

    '屬性 firstweekofyear 每年的第一周(詳細(xì)設(shè)置請參照vbs手冊)
    public property let firstweekofyear(value)
        firstweekofyear_ = cint(value)
    end property

    '屬性 firstdayofweek 每周的第一天(詳細(xì)設(shè)置請參照vbs手冊)
    public property let firstdayofweek(value)
        firstdayofweek_ = cint(value)
    end property


    '------------------------------
    ' 功能說明:算第幾周的星期幾是幾號
    ' 參數(shù)說明:y 年,w周,week 星期 (星期一1 星期天7)
    '------------------------------
    public function getweekdate(y, w, dayofweek)
        dim newyearday
        newyearday = cdate(y & "-1-1") '元旦
        getweekdate = ((newyearday - weekday(newyearday, firstdayofweek_)) + (w - 1) * 7 + dayofweek)
    end function

    '------------------------------
    ' 功能說明:獲得某年某月的天數(shù)
    '------------------------------
    public function getmonthdaycount()
        getmonthdaycount = datediff("d", d_, dateadd("m", 1, d_))
    end function

    '------------------------------
    ' 功能說明:得到某年某月的第一天
    '------------------------------
    public function getmonthfirstday()
        getmonthfirstday = cdate( year(d_) & "-" & month(d_) & "-1")
    end function

    '------------------------------
    ' 功能說明:得到某年的某月的最后一天
    '------------------------------
    public function getmonthlastday()
        getmonthlastday = cdate( year(d_) & "-"&month(d_) & "-" & datediff("d", d_, dateadd("m", 1, d_)))
    end function

    '------------------------------
    ' 功能說明:某日所在的周的第一天的日期
    '------------------------------
    public function weekfirstday()
        weekfirstday = getweekdate(year(d_), datepart("ww", d_,firstdayofweek_,firstweekofyear_), 1)
    end function

    '------------------------------
    ' 功能說明:某日所在的周的第最后一天的日期
    '------------------------------
    public function weeklastday()
        weeklastday = getweekdate(year(d_), datepart("ww", d_,firstdayofweek_,firstweekofyear_), 7)
    end function

end class
%>

 代碼如下:

<%@language="vbscript" codepage="936"%>
<% option explicit %>