使用日期VBA函数，但在格式化之前需要添加四个小时

Question

我正在访问一个文件名根据UTC日期更改的文件。我正在使用。所以使用Date VBA函数，有时它不会抓取文件，因为它是UTC的第二天，而我在使用。

Dim dttDate As Date
dttDate = Date
Set LMData = Workbooks.Open("C:...PRIVATENAME" & Format(dttDate, "yyyy-mm-dd") & ".csv")

我已经考虑过Now + 4(因为现在也处理时间)，但问题是我在VBA上看到单个整数被读取为月，我无法确定如何将其读取为小时。在excel函数日期是#值，所以+ 4将增加4个小时。

Answer 1

参考资料:VBA中的日期和时间函数

Time表示Access存储的双精度对象的小数部分日期和时间。因为在存储的日期/时间上加1表示1天或24小时，每小时存储为0.041666，即一天的1/24。在所有访问时间都存储为一天的一小部分。每小时是1/24一天中，每分钟1/1440，每秒1/86400。所以3:00是存储的如0.125(或一天的1/8)，16:00存储为0.666(或一天的2/3)天)。相反，0.2表示4:48小时(一天的1/5)，以此类推。

dttDate = int(Now + 4/24)