複製代碼代碼如下:
<%
'轉發時請保留此聲明信息,這段聲明不並會影響你的速度!
'**************************【日期擴展類】Ver0.1.1********************************
'開發人:Sman、NetFetch
'開發日期:2005-11-11
'版本號:Ver0.1.1
'官方網站:http://www.sman.cnhttp://www.ad0.cn
'電子郵件:[email protected]@163.com
'每日在線QQ:1934129332050450
'版權聲明:版權沒有,盜版不究,源碼公開,歡迎盜版,歡迎你到官方網站來尋求支持。
'如有任何改進之處,麻煩轉發或者反饋一份到[email protected]、[email protected],Thanks!
'詳細使用說明或範例請見下載附件或到官方站點或Email聯繫下載!
'************************************************************************************
ClassDateFunEx
Privated_
Privatefirstweekofyear_
Privatefirstdayofweek_
PrivateSubclass_initialize()
d_=date()'默認當前日期
firstdayofweek_=2'vbMonday
firstweekofyear_=1'由1月1日所在的星期開始。
EndSub
'屬性setDate日期
PublicPropertyLetsetDate(value)
OnErrorResumeNext
IfIsNumeric(value)Then
value=Cint(value)
Iflen(value)<3Thenvalue="20"&right("0"&value,2)
value=value&"-1"
EndIf
d_=cDate(value)
EndProperty
'屬性firstweekofyear每年的第一周(詳細設置請參照VBS手冊)