<%
Function DayOfYear (SomeDate)
Dim iMonth
Dim iDay
iMonth = Month(SomeDate)
iDay = Day(SomeDate)
DayOfYear = 0
If iMonth > 1 Then
DayOfYear = DayOfYear + 31
End If
If iMonth > 2 Then
DayOfYear = DayOfYear + 28
End If
If iMonth > 3 Then
DayOfYear = DayOfYear + 31
End If
If iMonth > 4 Then
DayOfYear = DayOfYear + 30
End If
If iMonth > 5 Then
DayOfYear = DayOfYear + 31
End If
If iMonth > 6 Then
DayOfYear = DayOfYear + 30
End If
If iMonth > 7 Then
DayOfYear = DayOfYear + 31
End If
If iMonth > 8 Then
DayOfYear = DayOfYear + 31
End If
If iMonth > 9 Then
DayOfYear = DayOfYear + 30
End If
If iMonth > 10 Then
DayOfYear = DayOfYear + 31
End If
If iMonth > 11 Then
DayOfYear = DayOfYear + 30
End If
' Add number of days into the current month:
DayOfYear = DayOfYear + iDay
End Function
Dim dnum
dnum = DayofYear(now)
%>
ÀÏÀϹý¾î
