ASP里面有取当前周的函数吗?

[adonwjw]

小弟找不到取周的函数,所以编了下面这个,那为大虾帮忙改改

weeknum=weekDay(DateAdd("d",(-(Day(date))+1),date)) 'the week number of first date of this month
firstdate=DateAdd("d",(-(Day(date))+1),date) 'the first date of this month
ldt_prevmon=dateadd("d",-1,firstdate) 'the last date of prev month
firstdate_lstmon=dateadd("d",(-(Day(ldt_prevmon))+1),ldt_prevmon) 'the first date of last

weekcount=0
for dd=1 to day(ldt_prevmon)
if (weekday(dateadd("d",dd,firstdate_lstmon))=1) then
weekcount=weekcount+1
end if
next


if day(date)<=(8-weekday(firstdate)) then
weekordnew=weekcount+1
ok=year(dateadd("m",-1,firstdate)) & "年" & month(dateadd("m",-1,firstdate)) &"月第" & weekordnew & "周"
else
weekord=int((day(date)-weekday(date))/7+1)

ok=year(Date) & "年" & month(Date) &"月第" & weekord & "周"
end if

[jancky2001]

有，weekday函数

[chenshantai]

weekday,ok!不用写程序

[tripofdream]

weekday是返回周几，datepart("ww",date())

[adonwjw]

注:求的是本月的第几周

[longyear]

那就自己写吧！

[longyear]

Mod 7

[tripofdream]

weeknum=weekDay(DateAdd("d",(-(Day(date))+1),date))
workcount=(weeknum+day(date))/7+1

[AnnyBJ]

这个应该是不难，
先知道本月1日是周几，
再计算是第几周。

[adonwjw]

没人回答了吗

[adonwjw]

8好意思,忘记给分了,其实是以为早给过了