요일구하기

weekday.asp

=====================================================

<%
'요일구하기 weekday.asp
Dim yy,mm,dd
yy=2009 '서기
mm=7
dd=8
'서기1년1월1일 (월) ~ 2009년7월8일까지 총날수
'총날수 나머지 7로 나눠서 1월 2화 3수....0일

'서기1년~2008년
Dim sum:sum=0
Dim y
For y=1 To yy-1
 If(LeapChk(y)) Then
  sum=sum+366
 Else
  sum=sum+365
 End If
Next

'1월~6월
Dim mon,m
mon=Array(0,31,28,31,30,31,30,31,31,30,31,30,31)
If(LeapChk(yy)) Then
 mon(2)=29
End If

For m=1 To mm-1
 sum=sum+mon(m)
Next

sum=sum+dd '총날수
Response.write sum & "<br>"

Select Case CInt(sum Mod 7)
 Case 1
  Response.write "월요일"
 Case 2
  Response.write "화요일"
 Case 3
  Response.write "수요일"
 Case 4
  Response.write "목요일"
 Case 5
  Response.write "금요일"
 Case 6
  Response.write "토요일"
 Case 0
  Response.write "일요일"
End Select

Function LeapChk(y)
 If(y Mod 4=0 And y Mod 100 <>0 Or y Mod 400=0) Then
  LeapChk=True  '윤년
 Else
  LeapChk=False '평년
 End If
End function

 

 

 

 

 

'산술연산자+-*/(몫) mod나머지
Response.write 5 Mod 3
'비교연산자<,  >, <=, >=, <>같지않다, =같다 (==)
Response.write 5 <> 3
'논리연산자 and (&&), or (||),  not (!)
'문) 10이 짝수이면서 5의배수인지 확인하시오
Response.write (10 Mod 2 =0) And (10 Mod 5 =0)
'연결연산자 + &(추천)
Response.write ("sky"+"Happy")
Response.write (10 & "happy")
'윤년공식) if(y%4==0&&y%100!=0||y%400==0)
'Dim y:y=2008
If (y Mod 4=0 And y Mod 100 <>0 Or y Mod 400=0) Then
 Response.write "윤년"
Else
 Response.write "평년"
End if

'365.2422일 -> 365일 몇시간 몇분 몇초일까요??
'1분60초 60분*60=3600초 24시간*3600=86400초
'Dim yy
yy=Clng(365.2422*86400) '1년 31556926.08초
response.write yy
'Dim d,h,m,s
d=(yy/86400)
response.write CInt(d) & "일"

yy=(yy Mod 86400)
h=(yy/3600)
response.write CInt(h) & "시간"

yy=(yy Mod 3600)
m=(yy/60)
s=(yy Mod 60)
response.write m & "분"
response.write s & "초"

%>