在 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)
场景:试图找出结束周数(当年的周数)和开始周数 使用给定的时间段。假设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)