Как пройти через недели в диапазоне дат с помощью vba

Question

Я видел, как цикл в течение недель года, w1301, w1302, w1303, я могу получить номер недели, если я прокручу + число в неделю, но я верю есть способ напрямую подключиться еженедельно с vba, я надеюсь, по крайней мере.

DateSerial(Year(Now), Month(Now), Day(Now)) To DateSerial(2013, 3, 1) 

    StartDate = #1/1/2013# 
    EndDate = #12/31/2013# 

    For DateLooper = StartDate To EndDate 

Я получил функцию на номер недели от даты

 Public Function IsoWeekNumber(d1 As Date) As Integer 
    Attributed to Daniel Maher 
    Dim d2 As Long 
    d2 = DateSerial(Year(d1 - WeekDay(d1 - 1) + 4), 1, 3) 
    IsoWeekNumber = Int((d1 - d2 + WeekDay(d2) + 5)/7) 
    End Function 

Answer 1

Вы можете просто использовать DateAdd function

For i = 1 To 52 
    Debug.Print DateAdd("ww", i, Now()) 
Next i 

Answer 2

День имеет целочисленное значение 1, так что вы могли бы итерацию в неделю следующим образом:

startDate = #1/1/2013# 
endDate = #12/31/2013# 

For d = startDate To endDate Step 7 
    'do stuff 
Next 

Номер недели можно определить с помощью функции DatePart, например .:

WScript.Echo DatePart("ww", Now) 

Это будет работать в обоих vbscript и vba.

Answer 3

Я пробовал это решение и, похоже, работает, я не уверен на 100% того, как он обрабатывает 28,30,31 дней разных месяцев, но я доверяю vba. я знаю, что допустил ошибку, вероятно :))

currentDate = "2013-01-02" ' coz i wanted to start on a wednesday 
    for week = 1 to 52 
    debug.print currentDate 
    currentDate = DateAdd("ww",1,currentDate) 
    next week