<%



'+++++++++++++++++++++++++++++++++++++++

'함수명 : getWeekDayNum(chkDate)

'인자 : chkDate - 문자열

'기능 : 날짜를 받아 날짜의 정수값 표현리턴

'+++++++++++++++++++++++++++++++++++++++

Function getWeekDayNum (chkDate)

Dim chkVal

chkVal = WeekDay(chkDate)



getWeekDayNum = chkVal

End Function



'+++++++++++++++++++++++++++++++++++++++

'함수명 : getDayName(chkDate)

'인자 : chkDate - 문자열

'기능 : 날짜를 받아 요일명 리턴

'+++++++++++++++++++++++++++++++++++++++

Function getDayName (chkDate)

Dim chkVal, strDayName

chkVal = WeekDay(chkDate)

strDayName = WeekDayName(chkVal)



getDayName = strDayName

End Function





'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'함수명 : getMonthFirstSunday(chkDate)

'인자 : chkDate - 문자열("YYYY-MM-DD")

'기능 : 날짜를 받아 그 달의 첫번째 일요일 날짜 리턴

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Function getMonthFirstSunday(chkDate)

Dim chkVal, thisMonthStart



thisMonthStart = DateSerial(Year(chkDate), Month(chkDate),1)

chkVal = WeekDay(thisMonthStart)



If chkVal = 1 then

getMonthFirstSunday = thisMonthStart

Else

getMonthFirstSunday = DateAdd("d",7-(chkVal-1) , thisMonthStart)

End If

End Function



'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'함수명 : getMonthLastSunday(chkDate)

'인자 : chkDate - 문자열

'기능 : 날짜를 받아 그 달의 마지막 일요일 날짜 리턴

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Function getMonthLastSunday(chkDate)

Dim chkVal, nextMonthStart



nextMonthStart = DateSerial(Year(chkDate), Month(chkDate)+1,1)

chkVal = WeekDay(nextMonthStart)



If chkVal = "1" then

getMonthLastSunday = DateAdd("ww",-1, nextMonthStart)

Else

getMonthLastSunday = DateAdd("d",-(chkVal-1) , nextMonthStart)

End If

End Function



'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'함수명 : getWeekSunDay(chkDate)

'인자 : chkDate - 문자열

'기능 : 날짜를 받아 날짜의 주차의 해당 일요일을 리턴

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Function getWeekSunDay(chkDate)

Dim chkVal, firstSunDay



firstSunday = getMonthFirstSunDay(chkDate)



diff = DateDiff("ww",firstSunday, chkDate)



If diff = 0 then

getWeekSunDay = firstSunday

Else

getWeekSunDay = DateAdd("ww",diff,firstSunday)

End If



End Function







'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'함수명 : getWeekSunDayCnt(chkDate)

'인자 : chkDate - 문자열

'기능 : 날짜를 받아 날짜의 주차의 해당 일요일의 그 달의 카운터를 리턴

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Function getWeekSunDayCnt(chkDate)

Dim chkVal, firstSunDay



firstSunday = getMonthFirstSunDay(chkDate)



diff = DateDiff("ww",firstSunday, chkDate)



If diff = 0 then

getWeekSunDayCnt = 1

Else

getWeekSunDayCnt = diff+1

End If



End Function





'+++++++++++++++++++++++++++++++++++++++

'서브명 : subDayInfo(chkDate)

'인자 : chkDate - 문자열

'기능 : 날짜를 받아 요일명, 요일 번호, 그 달의 첫번째 일요일, 마지막 일요일 값 리턴



'+++++++++++++++++++++++++++++++++++++++

Sub subDayInfo(chkDate)

dayName = getDayName(chkDate)

dayVbVal = getWeekDayNum(chkDate)

firstSunday = getMonthFirstSunday(chkDate)

lastSunday = getMonthLastSunday(chkDate)





response.write chkDate &"관련 정보<br>"

response.write "요일 : "& dayName&"<br>"

response.write "정수값 : "& dayVbVal&"<br>"

response.write "그 달의 첫번째 일요일 : "& firstSunDay&"<br>"

response.write "그 달의 마지막 일요일 : "& lastSunDay&"<br>"



End Sub



















chkDate = "2003-07-22"



Call subDayInfo(chkDate)



response.write getWeekSunDay(chkDate)&":"



response.write getWeekSunDayCnt(chkDate)



%>



뭐 꼭 필요한건 아니고요..전에 필요해서 한번 썼던건데요...날짜 관련해서 가끔 쓸만해요..

Happy.....

http://www.taeyo.pe.kr/threadboard/Content.asp?table=Board_Knowhow&seqs=734&page=1&IsSearch=

좀더 흥미로운 내용이 많이 있습니다.. HOME > WEB/ASP / DotNet를 확인하세요

애드센스로 즐거운 블로깅 하세요 매일매일 늘어 가는 수익 즐거운 인터넷 세상입니다.
도움말을 오픈해 두시고 위의 [Google Adsense로 귀하의 ~~]를 클릭하셔서 가입을 진행하시면 됩니다.

그리고 더불어 간편하게 사진을 편집하는 Picasa, 불필요한 팝업없는 FireFox, Real player로 실시간 스포츠 관전, 요금 없는 Sky pe로 즐거운 통화등 구글 툴로 즐거운 컴생활을 즐기세요!!
일단 패키지를 설치해 보세요 컴퓨터 생활이 틀려집니다.