Рассчитать год номер недели с данного периода в VBScript

Question

Сценарий: Пытаясь узнать Конец недели Номер (текущий год неделя номер) и Начало недели Номер используя заданный период. Предположим, что 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 = perdiodWeeks от endYW. 06 текущая неделя Количество 2015

Answer 1

Вычислить начальную дату (вычитать # недель * 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)