日期函数扩展类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中运用闭包和自执行函数解决大量的全局变量问题
Dec 30 Javascript
js三种排序算法分享
Aug 16 Javascript
jquery插件实现鼠标经过图片右侧显示大图的效果(类似淘宝)
Feb 04 Javascript
ExtJS DOM元素操作经验分享
Aug 28 Javascript
一个支持任意尺寸的图片上下左右滑动效果
Aug 24 Javascript
Javascript实现多彩雪花从天降散落效果的方法
Feb 02 Javascript
JavaScript使用yield模拟多线程的方法
Mar 19 Javascript
JavaScript中的函数声明和函数表达式区别浅析
Mar 27 Javascript
javascript实现textarea中tab键的缩排处理方法
Jun 26 Javascript
基于javascript bootstrap实现生日日期联动选择
Apr 07 Javascript
vue自定义指令实现v-tap插件
Nov 03 Javascript
使用ajax的post同步执行(实现方法)
Dec 21 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
定制404错误页面,并发信给管理员的程序
2006/10/09 PHP
详解php语言最牛掰的Laravel框架
2017/11/20 PHP
JS图片浏览组件PhotoLook的公开属性方法介绍和进阶实例代码
2010/11/09 Javascript
javascript拓展DOM操作 prependChild insertAfert
2010/11/17 Javascript
jQuery方法简洁实现隔行换色及toggleClass的使用
2013/03/15 Javascript
让angularjs支持浏览器自动填表
2014/11/10 Javascript
node.js操作mongoDB数据库示例分享
2014/11/26 Javascript
AngularJS实现表单手动验证和表单自动验证
2015/12/09 Javascript
基于JavaScript实现带缩略图的轮播效果
2017/01/12 Javascript
vue实现点击图片放大效果
2017/08/15 Javascript
Angular 5.0 来了! 有这些大变化
2017/11/15 Javascript
vue-cli脚手架config目录下index.js配置文件的方法
2018/03/13 Javascript
ndm:NPM的桌面GUI应用程序
2018/10/15 Javascript
jquery实现动态添加附件功能
2018/10/23 jQuery
微信小程序单选radio及多选checkbox按钮用法示例
2019/04/30 Javascript
ES6模板字符串和标签模板的应用实例分析
2019/06/25 Javascript
js字符串类型String常用操作实例总结
2019/07/05 Javascript
JavaScript this在函数中的指向及实例详解
2019/10/14 Javascript
解决Vue项目打包后打开index.html页面显示空白以及图片路径错误的问题
2019/10/25 Javascript
vue实现信息管理系统
2020/05/30 Javascript
Python实现发送email的几种常用方法
2014/08/18 Python
基于python OpenCV实现动态人脸检测
2018/05/25 Python
用python写扫雷游戏实例代码分享
2018/05/27 Python
Linux系统(CentOS)下python2.7.10安装
2018/09/26 Python
python try 异常处理(史上最全)
2019/03/07 Python
Python注释、分支结构、循环结构、伪“选择结构”用法实例分析
2020/01/09 Python
深入浅析python变量加逗号,的含义
2020/02/22 Python
Python中读取文件名中的数字的实例详解
2020/12/25 Python
利用Python函数实现一个万历表完整示例
2021/01/23 Python
一款纯css3实现的漂亮的404页面的实例教程
2014/11/27 HTML / CSS
英国家电直销:Appliances Direct
2016/09/22 全球购物
全球立体声:World Wide Stereo
2018/09/29 全球购物
机电专业毕业生推荐信
2013/11/10 职场文书
中文专业求职信
2014/06/20 职场文书
六一活动主持词
2015/06/30 职场文书
Java SSH 秘钥连接mysql数据库的方法
2021/06/28 Java/Android