【ASP】取得該月第幾周的第一天及最後一天

<%
'str_year   該年份
'str_month  該月份
'int_week   第幾周
Function getweek(str_year,str_month,int_week)
    Dim FirstDate  '該週的第一天  星期日
    Dim LastDate   '該週的最後一天  星期六
    LastDate=DateValue(str_year & "/" & str_month & "/"& "1")

  For i=1 To int_week
            '第幾週
            FirstDate = LastDate
            Do Until Weekday(LastDate) = 7               
                LastDate = DateAdd("d",1,LastDate)
            Loop

            If  int_week > 1 Then
                LastDate = DateAdd("d",1,LastDate)
            End If

   Next

     If int_week > 1 Then
            LastDate = DateAdd("d",-1,LastDate)
     End If

     '取得該週的第一天  
     getweek = FirstDate

     '若要取得該週的最後一天
      getweek = LastDate

      '以上紅色字...2擇一
 End Function

day_str=getweek("2010", "3", 4)
response.write(day_str)

%>

ex: 2010年3月第四周的第一天日期多少
     getweek("2010", "3", 4)--->2010/3/21

ex: 2010年3月第四周的最後一天日期多少
     getweek("2010", "3", 4)--->2010/3/27