如何计算出当前日期属于定义时间段内的第几星期？
更新时间：2006年11月16日 00:00:00 作者：
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
如何计算出当前日期属于定义时间段内的第几星期？
Function CalculateWeekNo(BeginDate,EndDate,InputDate)
dim wdate(500,8)
z=0
x=0
strlong=len(CStr(inputdate))-9
inputdate=cdate(left(CStr(inputdate),strlong))
for i=cdate(BeginDate) to cdate(EndDate)
if inputdate=i then
x=z
Exit For
end if
if weekday(i)=7 then
z=z+1
end if
next
CalculateWeekNo=x
end Function
[1]
相关文章
如何一行行地读取文件？...2006-11-11
这篇文章主要为大家介绍了web面试中面试官会经常问到的http缓存问题，本文来为大家极大为什么要有http缓存?http缓存之强制缓存，协商缓存中的资源标识等问题2021-09-09
如何获知所有的Cookie？...2006-11-11
如何编写翻页函数？...2006-11-11
如何对一个文件夹进行创建和删除？...2006-11-11
如何检测字符串出现的次数？...2006-11-11
如何控制弹出一个NTLM验证窗口？...2006-11-11
如何把一个Excel文件放到ASP页面中去？...2006-11-11
如何判断用户是否非正常离开聊天室？...2006-11-11
如何防止计数器刷新计数？...2006-11-11
最新评论