日期函数扩展类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中“+=”的应用
Feb 02 Javascript
javascript showModalDialog 内跳转页面的问题
Nov 25 Javascript
在for循环中length值是否需要缓存
Jul 27 Javascript
javascript与Python快速排序实例对比
Aug 10 Javascript
2016年最热门的15 款代码语法高亮工具,美化你的代码
Jan 06 Javascript
微信和qq时间格式模板实例详解
Oct 21 Javascript
详解webpack 多页面/入口支持&amp;公共组件单独打包
Jun 29 Javascript
详解如何用VUE写一个多用模态框组件模版
Sep 27 Javascript
使用VUE+iView+.Net Core上传图片的方法示例
Jan 04 Javascript
js实现全选和全不选
Jul 28 Javascript
vue.js 输入框输入值自动过滤特殊字符替换中问标点操作
Aug 31 Javascript
Vant Weapp组件踩坑:picker的初始赋值解决
Nov 12 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
虫族 ZERG 概述
2020/03/14 星际争霸
php array_merge下进行数组合并的代码
2008/07/22 PHP
PHP的单引号和双引号 字符串效率
2009/05/27 PHP
PHP初学者最感迷茫的问题小结
2010/03/27 PHP
Sublime里直接运行PHP配置方法
2014/11/28 PHP
学习php设计模式 php实现装饰器模式(decorator)
2015/12/07 PHP
php利用ffmpeg提取视频中音频与视频画面的方法详解
2017/06/07 PHP
一个无限级XML绑定跨框架菜单(For IE)
2007/01/27 Javascript
ajax 缓存 问题 requestheader
2010/08/01 Javascript
40款非常有用的 jQuery 插件推荐(系列一)
2011/12/21 Javascript
js实现日历可获得指定日期周数及星期几示例分享(js获取星期几)
2014/03/14 Javascript
javascript的动态加载、缓存、更新以及复用(一)
2014/06/09 Javascript
常用DOM整理
2015/06/16 Javascript
JS实现弹出浮动窗口(支持鼠标拖动和关闭)实例详解
2015/08/06 Javascript
jQuery插件formValidator实现表单验证
2016/05/23 Javascript
JavaScript中捕获与冒泡详解及实例
2017/02/03 Javascript
jQuery+CSS3实现点赞功能
2017/03/13 Javascript
使用nodejs爬取前程无忧前端技能排行
2017/05/06 NodeJs
JS实现的哈夫曼编码示例【原始版与修改版】
2018/04/22 Javascript
一次Webpack配置文件的分离实战记录
2018/11/30 Javascript
vue excel上传预览和table内容下载到excel文件中
2019/12/10 Javascript
python自动翻译实现方法
2016/05/28 Python
python3新特性函数注释Function Annotations用法分析
2016/07/28 Python
python实现简单中文词频统计示例
2017/11/08 Python
Python实现螺旋矩阵的填充算法示例
2017/12/28 Python
python读取word文档,插入mysql数据库的示例代码
2018/11/07 Python
解决python线程卡死的问题
2019/02/18 Python
python实现图像全景拼接
2020/03/27 Python
Django返回HTML文件的实现方法
2020/09/17 Python
洗车工岗位职责
2014/03/15 职场文书
企业读书活动总结
2014/06/30 职场文书
小学生放飞梦想演讲稿
2014/08/26 职场文书
村主任“四风”问题个人对照检查材料思想汇报
2014/10/02 职场文书
话题作文之呼唤
2019/12/18 职场文书
Jupyter notebook 不自动弹出网页的解决方案
2021/05/21 Python
OpenCV-Python实现人脸美白算法的实例
2021/06/11 Python