如何获得一年中某一天是第几个星期？

Question

<%'每天是星期几
  Function DayWeek(Yeari,Monthi,Dayi)
  Dim Days
  Days=0
  Dim yi,mi
  '年
  For yi=2001 to Yeari-1
      if yi mod 4=0 then
         if yi mod 100=0 then
            if yi mod 1000=0 then
               Days=Days+366
            else
               Days=Days+365
            end if
         else
            Days=Days+366
         end if
       else
         Days=Days+365
       end if
  Next
  '月
  For mi=1 to Monthi-1
      Days=Days+MonthDays(Yeari,mi)
  Next
  Days=Days+Dayi
  DayWeek=Days mod 7
  End Function%>

Answer 1

<script>
var dt = new Date()
var y= dt.getYear()
var start = "1/1/"+ y
start = new Date(start)
starts = start.valueOf()
startweek = start.getDay()
dtweek = dt.getDay()
var days = Math.round((dt.valueOf()- start.valueOf())/(24*60*60*1000))-(7-startweek) - dt.getDay()-1
days = Math.floor(days/7)
alert(days+2)
</script>
周日做为下周的开始计算