|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
前几天我问过,今天写出来了!! 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 返回类别: 教程 上一教程: 显式地释放你的ADO对象 下一教程: EXCEL数据导入到ACCESS,SQL SERVER中示例代码 您可以阅读与"计算当前日期是任意时间段内第几周的函数"相关的教程: · 计算两个时间之差的函数 · 计算两个时间的差的函数 · 一个实现任意改变计数器位数的函数 · T-SQL: 17 个与日期时间相关的自定义函数(UDF) · 本函数计算两个时间的差 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |