datetime - VBA Excel根据给定的时间分辨率创建小时列(如日历)

Question

我需要在 VBA 中创建某种日历。
我需要创建一个小时列。 2 个相邻单元格之间的时间差由从文本文件中读取的整数确定，该整数表示以分钟为单位的时间分辨率。

例如 - 如果 Res = 60，则小时列应如下所示:

12:00
13:00
14:00
 ...

如果 Res = 30，则小时列应如下所示:

12:00
12:30
13:00
13:30
14:00
 ....

我已经根据给定的结果计算了单元格的数量(如果 Res = 60，nCells = 24，如果 Res = 30 nCells = 48 等等)。我只是不知道如何创建小时列(当然是在 VBA 代码中)。

谢谢，
李

Answer 1

您可以使用 DateAdd 来增加日期:http://www.techonthenet.com/excel/formulas/dateadd.php

Sub createTimeColumn()

intIncr = 60                                    'minutes to add each cell
intCellCnt = 1440 / intIncr                     '24h * 60m = 1440 minutes per day
datDate = CDate("01/11/2013 06:00:00")          'start date+time for first cell

For i = 1 To intCellCnt                         'loop through n cells
    Cells(i, 1) = Format(datDate, "hh:mm")      'write and format result
    datDate = DateAdd("n", intIncr, datDate)    'add increment value
Next i

End Sub

结果看起来像