开启辅助访问
切换到宽版

天天ASP家园官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园»论坛 › 技术交流 › ASP技术 › ASP以周一为每周第一天，指定日期计算是当年第几周
返回列表 发新帖
查看: 1112|回复: 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
复制代码

ASP币如何冲？请看这里
回复

使用道具 举报

 楼主| 冰河非非 发表于 2019-7-6 17:28:03 | 显示全部楼层
虽然asp有DatePart函数可以解决，但有时不方便哈。
ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

在线客服

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