<%
'轉(zhuǎn)發(fā)時(shí)請(qǐng)保留此聲明信息,這段聲明不并會(huì)影響你的速度!
'************************** 【日期擴(kuò)展類】Ver 0.1.0 ********************************
'開(kāi)發(fā)人:??Sman、Net Fetch
'開(kāi)發(fā)日期:??2005-11-11
'版本號(hào):??Ver 0.1.0
'官方網(wǎng)站:
http://www.sman.cnhttp://www.ad0.cn'電子郵件:huihui3030@126.com、Ad0@Ad0.Cn QQ:19341293 32050450
'版權(quán)聲明:版權(quán)沒(méi)有,盜版不究,源碼公開(kāi),歡迎盜版,歡迎你到官方網(wǎng)站來(lái)尋求支持。
'如有任何改進(jìn)之處，麻煩轉(zhuǎn)發(fā)或者反饋一份到 huihui3030@126.com、Ad0@Ad0.Cn，Thanks!
'詳細(xì)使用說(shuō)明或范例請(qǐng)見(jiàn)下載附件或到官方站點(diǎn)或Email聯(lián)系下載！
'************************************************************************************
Class DateFunEx
Private d_
?Private Sub class_initialize()
??d_ = ""
?End Sub
?
Public Property Let setDate(strDate) '傳入日期參數(shù) 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??
'------------------------------
' 功能說(shuō)明:算第幾周的星期幾是幾號(hào)
' 參數(shù)說(shuō)明:y 年,w周,week 星期 (星期一1 星期天7) FirstDayofWeek 每周的第一天(詳細(xì)設(shè)置請(qǐng)參照VBS手冊(cè))
' 例 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
'------------------------------
' 功能說(shuō)明:獲得某年某月的天數(shù)
' 參數(shù)說(shuō)明:d_ 年-月-日
' 例 2005年10月 GetMonthDayCount("2005-10-11")(日可要可不要)
'------------------------------
Public Function GetMonthDayCount()
??Call FormatDate()
GetMonthDayCount = DateDiff("d", d_, DateAdd("m", 1, d_))
End Function
'------------------------------
' 功能說(shuō)明:得到某年某月的第一天
' 相關(guān)函數(shù):GetMonthFirstDay
' 例 本月 GetMonthFirstDay(date)(日可要可不要) 上月 GetMonthFirstDay(dateadd("m",-1,date)) 以此類推
'------------------------------
Public Function GetMonthFirstDay()
??Call FormatDate()
GetMonthFirstDay = CDate( Year(d_) & "-" & Month(d_) & "-1")
End Function
?
'------------------------------
' 功能說(shuō)明:得到某年的某月的最后一天
' 參數(shù)說(shuō)明:d_ 年-月-日
' 關(guān)聯(lián)函數(shù):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
'------------------------------
' 功能說(shuō)明:某日所在的周的第一天的日期
' 相關(guān)函數(shù):GetWeekDate
' 例 本周 WeekFirstDay(date) 上周 WeekFirstDay(dateadd("ww",-1,date)) 以此類推
'------------------------------
Public Function WeekFirstDay()
??Call FormatDate()
WeekFirstDay = GetWeekDate(Year(d_), DatePart("ww", d_), 1)
End Function
'------------------------------
' 功能說(shuō)明:某日所在的周的第最后一天的日期
' 相關(guān)函數(shù):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
%>