Петля через часы vba

Question

У меня есть две строки с датами, я хочу прокрутить часы дат. Я попробовал следующее:

strStart = "15-01-2016 09:00" 
strEnd = "16-01-2016 15:00" 
j=0 

for i = cdate(strStart) to cdate(strEnd) 
    msgbox(i) 
    j=j+1 
next i 

Я также попытался заменить cdate() в течение цикла с помощью timevalue(). В конце концов, я хочу, чтобы мои j быть 30. (15 часов в первый день и 15 из второй)

Answer 1

Используйте DateAdd - и DateDiff -Функции для этого:

dateStart = cDate(strStart) 
dateEnd = cDate(strEnd) 
j = 0 
While DateDiff("h", dateStart, dateEnd) > 0 
    j=j+1 
    dateStart = DateAdd("h", 1, dateStart) 
Wend 

Таким образом, вам не нужно создавать новый Date для каждого цикла, и вы можете легко получить доступ к другим форматам дат (дни, минуты, годы ...)