日期函数扩展类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 相关文章推荐
javascript web对话框与弹出窗口
Feb 22 Javascript
jquery validate使用攻略 第四步
Jul 01 Javascript
jquery中的mouseleave和mouseout的区别 模仿下拉框效果
Feb 07 Javascript
使用JS+plupload直接批量上传图片到又拍云
Dec 01 Javascript
JavaScript获取按钮所在form表单id的方法
Apr 02 Javascript
jQuery下拉框的简单应用
Jun 24 Javascript
js enter键激发事件实例代码
Aug 17 Javascript
js获取腾讯视频ID的方法
Oct 03 Javascript
微信小程序框架的页面布局代码
Aug 17 Javascript
vue 实现element-ui中的加载中状态
Nov 11 Javascript
node使用async_hooks模块进行请求追踪
Jan 28 Javascript
react国际化react-intl的使用
May 06 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脚本的10个技巧(2)
2006/10/09 PHP
关于PHP5 Session生命周期介绍
2010/03/02 PHP
php5.4以下版本json不支持不转义内容中文的解决方法
2015/01/13 PHP
php获取是星期几的的一些常用姿势
2019/12/15 PHP
Javascript 中的 &amp;&amp; 和 || 使用小结
2010/04/25 Javascript
js操作textarea 常用方法总结
2012/12/03 Javascript
基于jQuery实现模拟页面加载进度条
2013/04/01 Javascript
浅谈javascript中createElement事件
2014/12/05 Javascript
JS动态添加iframe的代码
2015/09/14 Javascript
js计算文本框输入的字符数
2015/10/23 Javascript
微信小程序 Flex布局详解
2016/10/09 Javascript
JavaScript 输出显示内容(document.write、alert、innerHTML、console.log)
2016/12/14 Javascript
js实现把图片的绝对路径转为base64字符串、blob对象再上传
2016/12/29 Javascript
Angularjs 实现移动端在线测评效果(推荐)
2017/04/05 Javascript
关于Vue组件库开发详析
2018/07/01 Javascript
Vue.js组件间通信方式总结【推荐】
2018/11/23 Javascript
基于vue-cli、elementUI的Vue超简单入门小例子(推荐)
2019/04/17 Javascript
JavaScript 接口原理与用法实例详解
2020/05/12 Javascript
vue 清空input标签 中file的值操作
2020/07/21 Javascript
微信小程序通过websocket实时语音识别的实现代码
2020/08/19 Javascript
python求pi的方法
2014/10/08 Python
python 解压pkl文件的方法
2018/10/25 Python
详解Python做一个名片管理系统
2019/03/14 Python
详解python配置虚拟环境
2019/04/08 Python
Pytorch生成随机数Tensor的方法汇总
2020/09/09 Python
详解Python 中的 defaultdict 数据类型
2021/02/22 Python
css3 transform属性详解
2014/09/30 HTML / CSS
CSS3实现复选框动画特效示例代码
2016/09/27 HTML / CSS
美国校服网上商店:French Toast
2019/10/08 全球购物
大唐面试试题(CPU,UNIX等等)
2012/01/11 面试题
英文商务邀请信
2014/01/22 职场文书
电大本科自我鉴定
2014/02/05 职场文书
小学先进集体事迹材料
2014/05/31 职场文书
家长会标语
2014/06/24 职场文书
创业计划书之溜冰场
2019/10/25 职场文书
试用1103暨1103、1101同门大比武 [ DAIWEI ]
2022/04/05 无线电