ASP中和星期有关的自定义函数

2008-02-23 05:30:42来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

最近有一个计算周的需要,看了网上现成的代码,不太合适,只好自己动手了。
默认把该年第一个星期一作为第一周的开始。

'计算某年第一周开始日期
function firstday(inputyear)
for i=cdate(inputyear&"-1-1") to cdate(inputyear&"-1-7")
if weekday(i)=2 then
firstday=i
exit for
end if
next
end function
'计算输入日期是该年第几周的函数
Function CalcWeekNo(InputDate)
toyear=year(inputdate)
fday=firstday(toyear)
if datediff("d",fday,inputdate)<0 then
fday=firstday(toyear-1)
end if
'calcweekno=fday
daynum=datediff("d",fday,inputdate)
calcweekno=int(daynum/7) 1
end function
'根据周数和年份,计算该周第一天
function getfst(inputyear,weekno)
fday=firstday(inputyear)
getfst=dateadd("d",(weekno-1)*7,fday)
end function

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:SQL Server 存储过程的分页

下一篇:防护手册:如何防止ASP木马在服务器上运行