日期函数扩展类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 相关文章推荐
两个DIV等高的JS的实现代码
Dec 23 Javascript
基于JQuery实现相同内容合并单元格的代码
Jan 12 Javascript
重写document.write实现无阻塞加载js广告(补充)
Dec 12 Javascript
node.js中的fs.readFile方法使用说明
Dec 15 Javascript
利用Javascript实现BMI计算器
Aug 16 Javascript
强大Vue.js组件浅析
Sep 12 Javascript
微信小程序简单实现form表单获取输入数据功能示例
Nov 30 Javascript
p5.js入门教程之平滑过渡(Easing)
Mar 16 Javascript
React如何避免重渲染
Apr 10 Javascript
JavaScript设计模式---单例模式详解【四种基本形式】
May 16 Javascript
在vue中使用Base64转码的案例
Aug 07 Javascript
如何用JavaScript学习算法复杂度
Apr 30 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
一个多文件上传的例子(原创)
2006/10/09 PHP
十天学会php(2)
2006/10/09 PHP
用 PHP5 轻松解析 XML
2006/12/04 PHP
FireFox浏览器使用Javascript上传大文件
2013/10/30 PHP
php简单统计在线人数的方法
2016/05/10 PHP
php中final关键字用法分析
2016/12/07 PHP
Yii框架弹出窗口组件CJuiDialog用法分析
2017/01/07 PHP
php正确输出json数据的实例讲解
2018/08/21 PHP
基于jquery的Repeater实现代码
2010/07/17 Javascript
script标签的 charset 属性使用说明
2010/12/04 Javascript
node.js中的socket.io的广播消息
2014/12/15 Javascript
JS中的Replace方法使用经验分享
2015/05/20 Javascript
jQuery 实现评论等级好评差评特效
2016/05/06 Javascript
JS原型对象的创建方法详解
2016/06/16 Javascript
Bootstrap的fileinput插件实现多文件上传的方法
2016/09/05 Javascript
官方推荐react-navigation的具体使用详解
2018/05/08 Javascript
vue脚手架搭建过程图解
2018/06/06 Javascript
Vue源码解读之Component组件注册的实现
2018/08/24 Javascript
javascript刷新父页面方法汇总详解
2019/10/10 Javascript
Javascript幻灯片播放功能实现过程解析
2020/05/07 Javascript
解决vue+router路由跳转不起作用的一项原因
2020/07/19 Javascript
[05:10]2014DOTA2国际邀请赛 通往胜利之匙赛场探秘之旅
2014/07/18 DOTA
详解Python中的strftime()方法的使用
2015/05/22 Python
Python数据分析库pandas基本操作方法
2018/04/08 Python
对Python字符串中的换行符和制表符介绍
2018/05/03 Python
CSS3实现苹果手机解锁的字体闪亮效果示例
2021/01/05 HTML / CSS
HTML5 video标签(播放器)学习笔记(二):播放控制
2015/04/24 HTML / CSS
Under Armour安德玛中国官网:美国高端运动科技品牌
2018/03/09 全球购物
巴西最好的男鞋:Rafarillo
2018/05/25 全球购物
可以在一个PHP文件里面include另外一个PHP文件两次吗
2015/05/22 面试题
总经理助理岗位职责
2013/11/08 职场文书
大学活动总结范文
2014/04/29 职场文书
2014年重阳节老干部座谈会上的讲话稿
2014/09/25 职场文书
干部作风建设工作总结
2014/10/29 职场文书
六年级学生期末评语
2014/12/26 职场文书
Spring boot实现上传文件到本地服务器
2022/08/14 Java/Android