코드 사본은 다음과 같습니다.
<%
'전달할 때이 진술 정보를 유지하십시오.이 진술은 속도에 영향을 미치지 않습니다!
'******************************************************************
'개발자 : Sman, Netfetch
'개발 날짜 : 2005-11-11
'버전 번호 : Ver0.1.1
'공식 웹 사이트 : http : //www.sman.cnhttp : //www.ad0.cn
'이메일 : [email protected]@163.com
'매일 온라인 QQ : 1934129332050450
'저작권 명세서 : 저작권이없고, 불법 복제가 조사되지 않으며, 소스 코드가 공개되며, 불법 복제 버전을 환영하며, 공식 웹 사이트로 이동하여 지원을 구할 수 있습니다.
'개선 사항이 있으면 [email protected], [email protected]으로 사본을 전달하거나 피드백하십시오!
'자세한 지침이나 예제는 다운로드 첨부 파일을 참조하거나 공식 웹 사이트 또는 이메일로 문의하여 다운로드하십시오!
'********************************************************************************************************************************************************************* 누군가
ClassDateFunex
사적인_
privatefirstweekofyear_
privatefirstdayofweek_
privatesubclass_initialize ()
d_ = date () '기본 현재 날짜
Firstdayofweek_ = 2'vbmonday
FirstWeekofyear_ = 1 '은 1 월 1 일 주중부터 시작됩니다.
Endsub
'속성 세트 데이트 날짜
PublicPropertyLetsetDate (value)
onerrorresumenext
그런 다음 ifisnumeric (값)
value = cint (value)
iflen (value) <3thenvalue = "20"& right ( "0"& value, 2)
값 = value & "-1"
endif
D_ = CDATE (값)
엔드 프로페티
'Properties Firstweekofyear의 매년 첫 주 (자세한 내용은 VBS 매뉴얼 참조)