<%
 '// 수요일 구하는 프로그램

 SELECT Case Weekday(Now)
  Case "1" '// 일요일
   tmp = 3
  Case "2" '// 월요일
   tmp = 2
  Case "3" '// 화요일
   tmp = 1
  Case "4" '// 수요일
   tmp = 0
  Case "5" '// 목요일
   tmp = 6
  Case "6" '// 금요일
   tmp = 5
  Case "7" '// 토요일
   tmp = 4
 End Select
 Response.Write tmp & "<br>"

 If tmp = 0 Then       '// 수요일이므로 해당사항 없음
  newDate = Now()
  LastDate = DateAdd("d",2,newDate) '// 금요일 구하기
 Else
  newDate = DateAdd("d",tmp,Now())
  LastDate = DateAdd("d",2,newDate) '// 금요일 구하기
 End If

 Response.Write NewDate
%>


'// 매주 수요일 구하는 프로그램 따라해 봅시다~

2007/11/22 15:04 2007/11/22 15:04

Trackback Address :: 이 글에는 트랙백을 보낼 수 없습니다