日期函数扩展类Ver0.1.1

站长资源 2024/11/24 佚名

2 0 1

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

 '属性 FirstDayofWeek 每周的第一天(详细设置请参照VBS手册)
 Public Property Let firstdayofweek(value)
 firstdayofweek_ = cInt(value)
 End Property

 '------------------------------
 ' 功能说明:算第几周的星期几是几号
 ' 参数说明:y 年,w周,week 星期 (星期一1 星期天7)
 '------------------------------
 Public Function GetWeekDate(y, w, DayofWeek)
 Dim NewYearDay
 NewYearDay = CDate(y & "-1-1") '元旦
 GetWeekDate = ((NewYearDay - Weekday(NewYearDay, firstdayofweek_)) + (w - 1) * 7 + DayofWeek)
 End Function

 '------------------------------
 ' 功能说明:获得某年某月的天数
 '------------------------------
 Public Function GetMonthDayCount()
 GetMonthDayCount = DateDiff("d", d_, DateAdd("m", 1, d_))
 End Function

 '------------------------------
 ' 功能说明:得到某年某月的第一天
 '------------------------------
 Public Function GetMonthFirstDay()
 GetMonthFirstDay = CDate( Year(d_) & "-" & Month(d_) & "-1")
 End Function

 '------------------------------
 ' 功能说明:得到某年的某月的最后一天
 '------------------------------
 Public Function GetMonthLastDay()
 GetMonthLastDay = CDate( Year(d_) & "-"&Month(d_) & "-" & DateDiff("d", d_, DateAdd("m", 1, d_)))
 End Function

 '------------------------------
 ' 功能说明:某日所在的周的第一天的日期
 '------------------------------
 Public Function WeekFirstDay()
 WeekFirstDay = GetWeekDate(Year(d_), DatePart("ww", d_,firstdayofweek_,firstweekofyear_), 1)
 End Function

 '------------------------------
 ' 功能说明:某日所在的周的第最后一天的日期
 '------------------------------
 Public Function WeekLastDay()
 WeekLastDay = GetWeekDate(Year(d_), DatePart("ww", d_,firstdayofweek_,firstweekofyear_), 7)
 End Function

End Class
%>

测试页面:
复制代码代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Option Explicit %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Test_clsDateFunEx</title>
</head>

<body>

<%
Dim myDateFun,strDate
strDate = "2005-4-1"
Set myDateFun = new DateFunEx
 myDateFun.setDate = strDate
 Response.write "2006年第2周的星期一是几号:" & _
 myDateFun.GetWeekDate(2006,2,1) &" "
 Response.Write "2005年4月的天数:"&_
 myDateFun.GetMonthDayCount & " "
 Response.Write "2005年4月的第一天:"&_
 myDateFun.GetMonthFirstDay & " "
 Response.Write "2005年4月的最后一天:"&_
 myDateFun.GetMonthLastDay & " "
 Response.Write "2005年4月1日所在的周的第一天的日期:"&_
 myDateFun.WeekFirstDay & " "
 Response.Write "2005年4月1日所在的周的第最后一天的日期:" & _
 myDateFun.WeekLastDay & " "
Set myDateFun = Nothing
%>
 
</body>
</html>

下载此文件

日期函数扩展类Ver0.1.1

广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！

评论“日期函数扩展类Ver0.1.1”

暂无评论...

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

暴雪近日发布了《魔兽世界》10.2.6 更新内容，新游玩模式《强袭风暴》即将于3月21 日在亚服上线，届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。

艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕，并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时，他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中，玩家将会进入一个全新的海盗主题大逃杀式限时活动，其中包含极高的风险和史诗级的奖励。
《强袭风暴》不是普通的战场，作为一个独立于主游戏之外的活动，玩家可以用大逃杀的风格来体验《魔兽世界》，不分职业、不分装备（除了你在赛局中捡到的），光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式，玩家在加入海盗主题的预赛大厅区域前，可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹，《巨龙崛起》和《魔兽世界：巫妖王之怒经典版》的玩家都可以获得奖励。

更新日志

2024年11月24日

日期函数扩展类Ver0.1.1

获取字符中中文首字字符

奇妙的文件系统对象组件

评论“日期函数扩展类Ver0.1.1”

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

更新日志

友情链接