拍拍尘土

Function GetWeekNo(InputDate)

dim pytY,pytNewYear,pytNewYearWeek,pytAllDay,pytBanWeek,NumWeek

NumWeek = 0

pytY = Year(InputDate)

pytNewYear=pytY &"-1-1"

pytNewYearWeek = Weekday(pytNewYear)

pytAllDay = DateDiff("d",pytNewYear,InputDate)

pytBanWeek = 8-pytNewYearWeek

if pytBanWeek<7 Then

NumWeek = 1

pytAllDay = pytAllDay - pytBanWeek

end if

tempx = pytAllDay/7


tempx = -Int(-tempx)

NumWeek = NumWeek+tempx

GetWeekNo = NumWeek

end Function

'函数名 getDateRange
'函数 index -数值型:指定周数
Function getDateRange(byVal Index)
Dim CurDate, retDate, Days, retVal
CurDate = CDate(Year(Date()) & "-1-1")
if (WeekDay(CurDate)<>1) Then Index =Index-1
Days=Index * 7
retDate=DateAdd("d", (Days - 1), CurDate)
if (retDate < CurDate) Then retDate=CurDate
retDate=DateAdd("d", -Weekday(retDate), retDate)
if (retDate< CurDate) then
retVal=CurDate & "->" & DateAdd("d", 7, retDate)
else
retVal=retDate + 1 & "->" & DateAdd("d", 7, retDate)
end if
getDateRange = retVal
End Function