在 VBScript 中计算给定期间的年周数

Calculate year week number from given period in VBScript

场景:试图找出结束周数(当年的周数)和开始周数 使用给定的时间段。假设PeriodWeeks = 10。这意味着从今天的周数到最后10周,在当前情况下肯定会到去年。

代码 我有:

perdiodWeeks = 10             ' this is a constant in the code
periodMonths= periodQtrs * 3  ' this calculates month from given number of quarters

endDate = DateAdd("m",-1,Date)
endYear = DatePart("yyyy", endDate)
endMonth = DatePart("m", endDate)

startDate = DateAdd("m", -(periodMonths-1), endDate)
startYear = DatePart("yyyy", startDate)
startMonth = DatePart("m", startDate)

如何计算以下内容?

startYW             ' start year week number
endYW               ' end year week number

其中值将是 endYW = 201506 和 startYW = endYW 的 perdiodWeeks。 06 是 2015 年的当前周数

计算初始日期(减去 #weeks*7)并使用可用函数检索所需信息

Option Explicit

Dim periodWeeks
    periodWeeks = 10

Dim dateToday, dateStart
    dateToday = Now()
    dateStart = DateAdd("d",periodWeeks*-7, dateToday)

Dim weekToday, weekStart
    weekToday = DatePart("ww",dateToday)
    weekStart = DatePart("ww",dateStart)