| ASP以周一作为每周第一天，指定日期计算是当年第几周函数 |
| 来源：智睿 浏览：2207 次 发布时间：2017-11-20 12:32:54 |
Function GetNthWeek(sDate)
Dim dt, daysElapsed, wd, n
dt = CDate(sDate)
daysElapsed = DateDiff("d", Year(dt) & "-1-1", dt)
wd = Weekday(CDate(Year(dt) & "-1-1"), 2)
If wd = 1 Then
n = daysElapsed \ 7
If (daysElapsed Mod 7) <> 0 Then n = n + 1
Else
If daysElapsed < (7 - wd + 1) Then
n = 1
Else
daysElapsed = daysElapsed - (7 - wd + 1) + 1
n = (daysElapsed \ 7) + 1
If (daysElapsed Mod 7) <> 0 Then n = n + 1
End If
End If
GetNthWeek = n
End Function
|
| 【刷新页面】【加入收藏】【打印此文】 【关闭窗口】 |
| 上一篇：智睿学校选课系统 V 3.3.0 学生选课系统,学校选课系统,网络选课系统 下一篇：智睿中小学校网站系统 V 8.7.0 中学网站管理系统，小学网站管理系统 |
