代碼如下:
<%
'轉發時請保留此聲明信息,這段聲明不并會影響你的速度!
'**************************   【日期擴展類】Ver 0.1.1********************************
'開發人:        Sman、Net Fetch
'開發日期:        2005-11-11
'版本號:        Ver 0.1.1

'官方網站:http://www.sman.cn     http://www.ad0.cn
'電子郵件:huihui3030@126.com    NetFetchStudio@163.com  
'每日在線QQ:19341293             32050450
'版權聲明:版權沒有,盜版不究,源碼公開,歡迎盜版,歡迎你到官方網站來尋求支持。
'如有任何改進之處，麻煩轉發或者反饋一份到 huihui3030@126.com、NetFetchStudio@163.com，Thanks!
'詳細使用說明或范例請見下載附件或到官方站點或Email聯系下載！
'************************************************************************************

Class DateFunEx

    Private d_
    Private firstweekofyear_
    Private firstdayofweek_

    Private Sub class_initialize()
        d_                     = date() '默認當前日期
        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 每年的第一周(詳細設置請參照VBS手冊)