时间:2021-05-18
复制代码 代码如下:
<%
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'**************************【日期扩展类】Ver0.1.1********************************
'开发人:Sman、NetFetch
'开发日期:2005-11-11
'版本号:Ver0.1.1
'官方网站:http://,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手册)
PublicPropertyLetfirstweekofyear(value)
firstweekofyear_=cInt(value)
EndProperty
'属性FirstDayofWeek每周的第一天(详细设置请参照VBS手册)
PublicPropertyLetfirstdayofweek(value)
firstdayofweek_=cInt(value)
EndProperty
'------------------------------
'功能说明:算第几周的星期几是几号
'参数说明:y年,w周,week星期(星期一1星期天7)
'------------------------------
PublicFunctionGetWeekDate(y,w,DayofWeek)
DimNewYearDay
NewYearDay=CDate(y&"-1-1")'元旦
GetWeekDate=((NewYearDay-Weekday(NewYearDay,firstdayofweek_))+(w-1)*7+DayofWeek)
EndFunction
'------------------------------
'功能说明:获得某年某月的天数
'------------------------------
PublicFunctionGetMonthDayCount()
GetMonthDayCount=DateDiff("d",d_,DateAdd("m",1,d_))
EndFunction
'------------------------------
'功能说明:得到某年某月的第一天
'------------------------------
PublicFunctionGetMonthFirstDay()
GetMonthFirstDay=CDate(Year(d_)&"-"&Month(d_)&"-1")
EndFunction
'------------------------------
'功能说明:得到某年的某月的最后一天
'------------------------------
PublicFunctionGetMonthLastDay()
GetMonthLastDay=CDate(Year(d_)&"-"&Month(d_)&"-"&DateDiff("d",d_,DateAdd("m",1,d_)))
EndFunction
'------------------------------
'功能说明:某日所在的周的第一天的日期
'------------------------------
PublicFunctionWeekFirstDay()
WeekFirstDay=GetWeekDate(Year(d_),DatePart("ww",d_,firstdayofweek_,firstweekofyear_),1)
EndFunction
'------------------------------
'功能说明:某日所在的周的第最后一天的日期
'------------------------------
PublicFunctionWeekLastDay()
WeekLastDay=GetWeekDate(Year(d_),DatePart("ww",d_,firstdayofweek_,firstweekofyear_),7)
EndFunction
EndClass
%>
使用方法
复制代码 代码如下:
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%OptionExplicit%>
<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<htmlxmlns="http://www.w3.org/1999/xhtml">
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/>
<title>Test_clsDateFunEx</title>
</head>
<body>
<!--#includefile="clsDateFunEx.asp"-->
<%
DimmyDateFun,strDate
strDate="2005-4-1"
SetmyDateFun=newDateFunEx
myDateFun.setDate=strDate
Response.write"2006年第2周的星期一是几号:"&_
myDateFun.GetWeekDate(2006,2,1)&"<br>"
Response.Write"2005年4月的天数:"&_
myDateFun.GetMonthDayCount&"<br>"
Response.Write"2005年4月的第一天:"&_
myDateFun.GetMonthFirstDay&"<br>"
Response.Write"2005年4月的最后一天:"&_
myDateFun.GetMonthLastDay&"<br>"
Response.Write"2005年4月1日所在的周的第一天的日期:"&_
myDateFun.WeekFirstDay&"<br>"
Response.Write"2005年4月1日所在的周的第最后一天的日期:"&_
myDateFun.WeekLastDay&"<br>"
SetmyDateFun=Nothing
%>
<br><br><br>
</body>
</html>
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
/*MSClass(ClassOfMarqueeScroll通用不间断滚动JS封装类)Ver1.6*\ 制作时间:2006-08-29(Ver0.5) 发布时间
strftime strftime()函数是用来格式化一个日期、日期时间和时间的函数,支持date、datetime、time等类,把这些时间通过格式字符要求
Kotlinthis详解及实例为了表示当前函数的接收者(receiver),们使用this表达式:在类的成员函数中,this指向这个类的当前对象实例;在扩展函数
本文实例讲述了CodeIgniter扩展核心类的方法。分享给大家供大家参考,具体如下:CI中对核心类、辅助类和函数的扩展是相当方便的,配置文件中指定了subcl
PHPReflection是用于获取类、扩展、方法、函数、对象、参数、属性的详细信息。ReflectionClass类获取类相关信息,如获取属性、方法、文档注释