使用Date VBA函数，但在格式化之前需要添加四个小时。
我正在访问一个文件，根据UTC的date名称更改。 我在使用。 因此，使用Date VBA函数，有时它不会抓取文件，因为它在UTC的第二天，而我在USE上。
Dim dttDate As Date dttDate = Date Set LMData = Workbooks.Open("C:\...\PRIVATENAME" & Format(dttDate, "yyyy-mm-dd") & ".csv") 我已经考虑过现在+4（因为现在交易时间也是如此），但问题是我在VBA上看到，单个整数被看作是几个月，而我不能确定如何把它看作几个小时。 在Excel函数中，date是＃值，所以+ 4会增加4小时。
参考： VBA中的date和时间函数
时间表示Access存储date和时间的double的小数部分。 由于在存储date/时间中加1表示1天或24小时，因此每小时存储为.041666，即每天的1/24。 在Access中，所有时间都是以一天中的一小部分存储的。 每个小时是每天1/24，每分钟1/1440，每秒1/86400。 因此，3点存储为.125（或每天的1/8），而16点存储为0.666（或每天的2/3）。 相反，0.2表示4:48小时（每天1/5），依此类推。
dttDate = int(Now + 4/24)