 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
最近有一个计算周的需要，看了网上现成的代码，不太合适，只好自己动手了。 默认把该年第一个星期一作为第一周的开始。 \\\'计算某年第一周开始日期 function firstday(inputyear) for i=cdate(inputyear&"-1-1") to cdate(inputyear&"-1-7") if weekday(i)=2 then firstday=i exit for end if next end function \\\'计算输入日期是该年第几周的函数 Function CalcWeekNo(InputDate) toyear=year(inputdate) fday=firstday(toyear) if datediff("d",fday,inputdate)<0 then fday=firstday(toyear-1) end if \\\'calcweekno=fday daynum=datediff("d",fday,inputdate) calcweekno=int(daynum/7)+1 end function \\\'根据周数和年份，计算该周第一天 function getfst(inputyear,weekno) fday=firstday(inputyear) getfst=dateadd("d",(weekno-1)*7,fday) end function 返回类别: 教程 上一教程: 显示左边的N个字符函数(自动识别汉字) 下一教程: 简朴快捷实现ASP在线发邮件 您可以阅读与"ASP中和星期有关的自定义函数"相关的教程: · 几个ASP好用的自定义函数 · T-SQL: 17 个与日期时间相关的自定义函数(UDF) · 常用数据库操作的自定义函数 · ASP自定义函数，仿VBA中域函数DLOOKUP · 用自定义函数获取汉字的首字母 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
