浏览模式: 普通 | 列表
12月, 2011 | 1

asp获取当前时间是第几周和指定周数的日期范围函数

[ 2011-12-05 08:33:34 | 作者: admin ]
获取当前时间是第几周函数：
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
...

阅读全文…
分类: ASP | 永久链接 | 评论: 0 | 引用: 0 | 浏览: 2606
1