<%
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'************************** 【日期扩展类】Ver 0.1.0 ********************************
'开发人: Sman、Net Fetch
'开发日期: 2005-11-11
'版本号: Ver 0.1.0
'官方网站:
http://www.sman.cnhttp://www.ad0.cn'电子邮件:huihui3030@126.com、Ad0@Ad0.Cn QQ:19341293 32050450
'版权声明:版权没有,盗版不究,源码公开,欢迎盗版,欢迎你到官方网站来寻求支持。
'如有任何改进之处,麻烦转发或者反馈一份到 huihui3030@126.com、Ad0@Ad0.Cn,Thanks!
'详细使用说明或范例请见下载附件或到官方站点或Email联系下载!
'************************************************************************************
Class DateFunEx
Private d_
Private Sub class_initialize()
d_ = ""
End Sub
Public Property Let setDate(strDate) '传入日期参数 strDate
d_ = strDate
End Property
Public Property Get Version
Version = "Copyright © Date Function Extend Ver 0.1.0<br />" & _
"Power by <a href='
http://www.sman.cn' target='_blank'>Sman</a> " & _
" & <a href='mailto:NetFetchStudio@163.com' target='_blank'>Net Fetch</a>"
End Property
Sub FormatDate()
On Error Resume Next
If IsNumeric(d_) Then
d_ = Cint(d_)
If len(d_)< 3 Then d_ = "20" & right("0"&d_,2)
d_ = d_ & "-1"
End If
d_ = cDate(d_)
End Sub
'------------------------------
' 功能说明:算第几周的星期几是几号
' 参数说明:y 年,w周,week 星期 (星期一1 星期天7) FirstDayofWeek 每周的第一天(详细设置请参照VBS手册)
' 例 2005年40周星期天 GetWeekDate(2005,40,7)
'------------------------------
Public Function GetWeekDate(y, w, DayofWeek)
Call FormatDate()
Dim NewYearDay,FirstDayofWeek
FirstDayofWeek = 2
NewYearDay = CDate(y & "-1-1") '元旦
GetWeekDate = ((NewYearDay - Weekday(NewYearDay, FirstDayofWeek)) + (w - 1) * 7 + DayofWeek)
End Function
'------------------------------
' 功能说明:获得某年某月的天数
' 参数说明:d_ 年-月-日
' 例 2005年10月 GetMonthDayCount("2005-10-11")(日可要可不要)
'------------------------------
Public Function GetMonthDayCount()
Call FormatDate()
GetMonthDayCount = DateDiff("d", d_, DateAdd("m", 1, d_))
End Function
'------------------------------
' 功能说明:得到某年某月的第一天
' 相关函数:GetMonthFirstDay
' 例 本月 GetMonthFirstDay(date)(日可要可不要) 上月 GetMonthFirstDay(dateadd("m",-1,date)) 以此类推
'------------------------------
Public Function GetMonthFirstDay()
Call FormatDate()
GetMonthFirstDay = CDate( Year(d_) & "-" & Month(d_) & "-1")
End Function
'------------------------------
' 功能说明:得到某年的某月的最后一天
' 参数说明:d_ 年-月-日
' 关联函数:GetMonthDayCount
' 例 本月 GetMonthLastDay(date)(日可要可不要) 上月 GetMonthLastDay(dateadd("m",-1,date)) 以此类推
'------------------------------
Public Function GetMonthLastDay()
Call FormatDate()
GetMonthLastDay = CDate( Year(d_) & "-"&Month(d_) & "-" & DateDiff("d", d_, DateAdd("m", 1, d_)))
End Function
'------------------------------
' 功能说明:某日所在的周的第一天的日期
' 相关函数:GetWeekDate
' 例 本周 WeekFirstDay(date) 上周 WeekFirstDay(dateadd("ww",-1,date)) 以此类推
'------------------------------
Public Function WeekFirstDay()
Call FormatDate()
WeekFirstDay = GetWeekDate(Year(d_), DatePart("ww", d_), 1)
End Function
'------------------------------
' 功能说明:某日所在的周的第最后一天的日期
' 相关函数:GetWeekDate
' 例 本周 WeekLastDay(date) 上周 WeekLastDay(dateadd("ww",-1,date)) 以此类推
'------------------------------
Public Function WeekLastDay()
Call FormatDate()
WeekLastDay = GetWeekDate(Year(d_), DatePart("ww", d_), 7)
End Function
End Class
%>