VBA 时间戳与日期时间相互转换教程

在VBA中，可以使用'DateDiff'函数和'DateAdd'函数来进行时间戳的转化。

1. 时间戳转化为日期时间：

Dim timeStamp As Double
Dim dateTime As Date

timeStamp = 1591043200 ' 假设时间戳为2020年6月2日0时0分0秒
dateTime = DateAdd('s', timeStamp, '1970-01-01 00:00:00')

2. 日期时间转化为时间戳：

Dim dateTime As Date
Dim timeStamp As Double

dateTime = #6/2/2020 12:00:00 AM# ' 假设日期时间为2020年6月2日0时0分0秒
timeStamp = DateDiff('s', '1970-01-01 00:00:00', dateTime)

请注意，时间戳一般是以秒为单位的整数，而日期时间是以Date类型表示的。在转化时，需要指定时间戳和日期时间的基准点。常用的基准点是1970年1月1日0时0分0秒（UNIX时间戳）。