复制代码代码如下:
<%
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'**************************【日期扩展类】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手册)