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函数中，日期是#value，因此+ 4会增加4个小时。

Answer 1

参考：Date and Time Functions in VBA

时间表示Access存储的double的小数部分日期和时间。由于在存储的日期/时间中加1表示1天或24小时，每小时存储为.041666，或一天的1/24。在访问所有时间都存储为一天的一小部分。每小时是1/24 一天，每分钟1/1440，每秒1/86400。所以存储了3点 as .125（或一天的1/8），16：00存储为0.666，（或2/3 of a 天）。相反，0.2表示4:48小时（一天的1/5），依此类推。

dttDate = int(Now + 4/24)

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

1 个答案: