当前位置:首页 开发语言 正文

计算当前日期是任意时间段内第几周的函数

2011年06月06日 | 作者: 米豆网 - 1000seo | 分类: 开发语言 | 

计算当前日期是任意时间段内第几周的函数
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

本文固定链接:http://www.1000seo.com/soft/132
本文章由 米豆网 - 1000seo 于2011年06月06日发布在开发语言分类下,您可以发表评论,并在保留原文地址及作者的情况下引用到你的网站或博客。
+复制链接 转载请注明:计算当前日期是任意时间段内第几周的函数-米豆网
关键字:,

好文章就要一起分享!

更多

发表评论

你的大名(必填)

你的邮箱(必填)

你的网站(选填)

评论内容(必填)

😉 😐 😡 😈 🙂 😯 🙁 🙄 😛 😳 😮 mrgreen.png 😆 💡 😀 👿 😥 😎 ➡ 😕 ❓ ❗