快捷搜索:  as  test  1111  test aNd 8=8  test++aNd+8=8  as++aNd+8=8  as aNd 8=8

和记娱乐博娱188下载_集报网



前几和记娱乐博娱188下载天我问过,本日写出来了!!

Function CalculateWeekNo(BeginDa和记娱乐博娱188下载te,EndDate,InputDate)

dim wdate(500,8)

z=0

x=0

strlong=len(CStr(inputdate))-9

inputdate=cdate(left(CStr(inputdate),strl和记娱乐博娱188下载ong))

f和记娱乐博娱188下载or i=cdate(BeginDate) to cdate(EndDate)

if inputdate和记娱乐博娱188下载=i then

x=z

Exit For

end if

if weekday(i)=7 then

z=z+1

end if

next

CalculateWeekNo=x

end Function

免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。

您可能还会对下面的文章感兴趣: