查看: 136|回复: 1

[文章教程] ASP以周一为每周第一天,指定日期计算是当年第几周

[复制链接]
冰河非非 发表于 2019-7-6 17:18:16 | 显示全部楼层 |阅读模式
  1. Function GetNthWeek(sDate)
  2.     Dim dt, daysElapsed, wd, n
  3.     dt = CDate(sDate)
  4.     daysElapsed = DateDiff("d", Year(dt) & "-1-1", dt)
  5.     wd = Weekday(CDate(Year(dt) & "-1-1"), 2)
  6.     If wd = 1 Then
  7.         n = daysElapsed \ 7
  8.         If (daysElapsed Mod 7) <> 0 Then n = n + 1
  9.     Else
  10.         If daysElapsed < (7 - wd + 1) Then
  11.             n = 1
  12.         Else
  13.             daysElapsed = daysElapsed - (7 - wd + 1) + 1
  14.             n = (daysElapsed \ 7) + 1
  15.             If (daysElapsed Mod 7) <> 0 Then n = n + 1
  16.         End If
  17.     End If
  18.     GetNthWeek = n ‘返回函数值,重要
  19. End Function
复制代码

 楼主| 冰河非非 发表于 2019-7-6 17:28:03 | 显示全部楼层
虽然asp有DatePart函数可以解决,但有时不方便哈。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号