日期函数扩展类Ver0.1.1


Posted in Javascript onSeptember 07, 2006
<% 
'转发时请保留此声明信息,这段声明不并会影响你的速度! 
'**************************   【日期扩展类】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> 
<!--#include file="clsDateFunEx.asp" --> 
<% 
Dim myDateFun,strDate  
strDate = "2005-4-1" 
Set myDateFun = new DateFunEx  
    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>" 
Set myDateFun = Nothing 
%> 
<br><br><br> 
</body> 
</html>
Javascript 相关文章推荐
使用JS操作页面表格,元素的一些技巧
Feb 02 Javascript
JS批量修改PS中图层名称的方法
Jan 26 Javascript
jquery操作复选框(checkbox)的12个小技巧总结
Feb 04 Javascript
JavaScript语言对Unicode字符集的支持详解
Dec 30 Javascript
Angular组件化管理实现方法分析
Mar 17 Javascript
js中toString()和String()区别详解
Mar 23 Javascript
基于AngularJS实现的工资计算器实例
Jun 16 Javascript
深入理解vuex2.0 之 modules
Nov 20 Javascript
vue2过滤器模糊查询方法
Sep 16 Javascript
Promise扫盲贴
Jun 24 Javascript
JavaScript this在函数中的指向及实例详解
Oct 14 Javascript
js实现星星海特效的示例
Sep 28 Javascript
js脚本学习 比较实用的基础
Sep 07 #Javascript
prototype 的说明 js类
Sep 07 #Javascript
你的编程语言可以这样做吗?
Sep 07 #Javascript
音乐播放用的的几个函数
Sep 07 #Javascript
在网页中屏蔽快捷键
Sep 06 #Javascript
js的event详解。
Sep 06 #Javascript
农历与西历对照
Sep 06 #Javascript
You might like
PHP与javascript对多项选择的处理
2006/10/09 PHP
用函数读出数据表内容放入二维数组
2006/10/09 PHP
JpGraph php柱状图使用介绍
2011/08/23 PHP
基于jQuery架构javascript基础体系
2011/01/01 Javascript
jquery实现的网页自动播放声音
2014/04/30 Javascript
我的Node.js学习之路(四)--单元测试
2014/07/06 Javascript
JavaScript中的this机制
2016/01/30 Javascript
JS访问DOM节点方法详解
2016/11/29 Javascript
手机软键盘弹出时影响布局的解决方法
2016/12/15 Javascript
从零学习node.js之搭建http服务器(二)
2017/02/21 Javascript
JS动态添加元素及绑定事件造成程序重复执行解决
2017/12/07 Javascript
js断点调试心得分享(必看篇)
2017/12/08 Javascript
纯js封装的ajax功能函数与用法示例
2018/05/14 Javascript
element-ui带输入建议的input框踩坑(输入建议空白以及会闪出上一次的输入建议问题)
2019/01/15 Javascript
js实现二级联动简单实例
2020/01/11 Javascript
微信小程序向Java后台传输参数的方法实现
2020/12/10 Javascript
Python HTML解析器BeautifulSoup用法实例详解【爬虫解析器】
2019/04/05 Python
python学生信息管理系统实现代码
2019/12/17 Python
关于Pytorch的MNIST数据集的预处理详解
2020/01/10 Python
基于python实现复制文件并重命名
2020/09/16 Python
h5网页水印SDK的实现代码示例
2019/02/19 HTML / CSS
Linux管理员面试题 Linux admin interview questions
2016/07/08 面试题
物流专业大学生求职信范文
2013/10/28 职场文书
最新大学职业规划书范文
2013/12/30 职场文书
物理专业本科生自荐信
2014/01/30 职场文书
年级组长自我鉴定
2014/02/22 职场文书
《狼》教学反思
2014/03/02 职场文书
中学教师师德师风演讲稿
2014/08/22 职场文书
村级四风对照检查材料
2014/08/24 职场文书
中秋节活动总结
2014/08/29 职场文书
机关党员公开承诺书
2014/08/30 职场文书
关键在于落实心得体会
2014/09/03 职场文书
领导批评与自我批评范文
2014/10/16 职场文书
Python实战之大鱼吃小鱼游戏的实现
2022/04/01 Python
天谕手游15杯全调酒配方和调酒券的获得方式
2022/04/06 其他游戏
vue特效之翻牌动画
2022/04/20 Vue.js