날짜 함수 확장 클래스 Ver0.1.1_javascript 기술

코드 복사 코드는 다음과 같습니다.

<%
'전송 시 이 진술 정보를 유지하십시오. 이 진술은 속도에 영향을 미치지 않습니다!
'**************** *** ********* 【날짜 확장 클래스】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으로 사본을 전달하거나 의견을 보내주세요. 감사합니다.
'자세한 사용 지침이나 예를 보려면 다운로드 첨부 파일을 참조하거나 공식 사이트나 이메일로 다운로드하세요!
'************************************************ ** ****************************************

수업 DateFunEx

Private d_
Private firstweekofyear_
Private firstdayofweek_

Private Sub class_initialize()
d_ = date() '기본 현재 날짜
firstdayofweek_ = 2 'vbMonday
firstweekofyear_ = 1 '1월 1일이 포함된 주를 시작합니다.
End Sub

'Property setDate Date
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_ = c 날짜 (값)
끝 속성

'속성 firstweekofyear 매년 첫 번째 주(자세한 설정은 VBS 매뉴얼을 참고하세요)
Public Property Let firstweekofyear(value)
firstweekofyear_ = cInt(value)
End Property

'Property FirstDayofWeek 한 주의 첫날 (자세한 설정은 VBS 매뉴얼을 참고하세요)
Public Property Let firstdayofweek(value)
firstdayofweek_ = cInt(value)
끝 속성


'-------------------------------
' 함수 설명 : 숫자 세기 요일은 무엇입니까?
' 매개 변수 설명 : y 년, w 주, 주 (월 1, 일요일 7)
'------- --------- -------------
공개 함수 GetWeekDate(y, w, DayofWeek)
Dim NewYearDay
NewYearDay = CDate(y & " -1-1") '새해 첫날
GetWeekDate = ((NewYearDay - Weekday(NewYearDay, firstdayofweek_)) (w - 1) * 7 DayofWeek)
종료 함수

'--- ----------- ---
' 함수 설명 : 특정 연도, 월의 일수 구하기
'- --------------- --------------
공용 함수 GetMonthDayCount()
GetMonthDayCount = DateDiff("d", d_, DateAdd("m", 1, d_))
함수 종료

'---------------------------- ------
' 함수 설명: 특정 연도의 특정 월을 가져옵니다.
의 첫 번째 날 '--------- ---------
공용 함수 GetMonthFirstDay()
GetMonthFirstDay = CDate( 연도(d_) & "-" & 월(d_) & "-1")
종료 함수

'---------------- ----------------
' 기능 설명: 마지막 날을 구합니다. 특정 연도의 특정 월
'--- --------------
공용 함수 GetMonthLastDay()
GetMonthLastDay = CDate( 연도(d_) & "-"&월(d_) & "-" & DateDiff("d ", d_, DateAdd("m", 1, d_)))
함수 종료

'--------------- --------
' 기능 설명 : 첫 번째 날짜 특정 요일이 속하는 요일
'--------------- --------- -
공개 함수 WeekFirstDay()
WeekFirstDay = GetWeekDate(Year(d_), DatePart("ww", d_,firstdayofweek_,firstweekofyear_), 1)
함수 종료

'-- ---------------
'기능설명 : 특정일의 주 마지막 날의 날짜
'---------------------------------
공개 함수 WeekLastDay()
WeekLastDay = GetWeekDate(년 (d_), DatePart("ww", d_,firstdayofweek_,firstweekofyear_), 7)
종료 함수

수업 종료
%>

사용 방법

코드 복사코드는 다음과 같습니다.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Option Explicit %> >