日期函數擴展類Ver0.1.1
2024-05-04 11:02:31
供稿：網友
復制代碼 代碼如下:
<%
'轉發時請保留此聲明信息,這段聲明不并會影響你的速度!
'************************** 【日期擴展類】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手冊)
