vba - 循环小时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() 的 for 循环中.最后，我想要我的 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对于每个循环，您可以轻松访问其他日期格式(天、分钟、年...)