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

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

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日发布在开发语言分类下,您可以发表评论,并在保留原文地址及作者的情况下引用到你的网站或博客。
+复制链接 转载请注明:计算当前日期是任意时间段内第几周的函数-米豆网
关键字:,

好文章就要一起分享!

更多

发表评论

你的大名(必填)

你的邮箱(必填)

你的网站(选填)

评论内容(必填)

icon_wink.gif icon_neutral.gif icon_mad.gif icon_twisted.gif icon_smile.gif icon_eek.gif icon_sad.gif icon_rolleyes.gif icon_razz.gif icon_redface.gif icon_surprised.gif icon_mrgreen.gif icon_lol.gif icon_idea.gif icon_biggrin.gif icon_evil.gif icon_cry.gif icon_cool.gif icon_arrow.gif icon_confused.gif icon_question.gif icon_exclaim.gif