在 VBA 中显示 Unix 时间

Unix 时间是指从 1970 年 1 月 1 日 00:00:00 UTC 到当前时间的秒数。在编程中，我们经常需要将 Unix 时间转换为易于阅读的日期和时间格式。

在 VBA 中获取当前 Unix 时间的方法是使用 Timer 函数，该函数返回自从午夜以来经过的秒数。

Dim now_unix_time As Long
now_unix_time = Timer

要将 Unix 时间转换为日期和时间格式，我们可以使用 DateAdd 函数和 Format 函数。

Dim unix_time As Long
unix_time = 1608891600 ' 2020-12-25 00:00:00 UTC

Dim date_time As Date
date_time = DateAdd("s", unix_time, "1970-01-01 00:00:00")

Debug.Print Format(date_time, "yyyy-mm-dd hh:mm:ss")
' 输出： 2020-12-25 00:00:00

首先，我们使用 DateAdd 函数将 Unix 时间转换为 Date 类型的日期和时间。DateAdd 函数的第一个参数是时间单位，这里是秒（"s"），第二个参数是要添加的时间数量，第三个参数是日期和时间的基准值，即 Unix 时间的起始时间（1970 年 1 月 1 日 00:00:00）。这将返回一个 Date 类型的值。

然后，我们使用 Format 函数将 Date 类型的日期和时间格式化为字符串。Format 函数的第一个参数是要格式化的值，第二个参数是要使用的格式字符串，这里使用 "yyyy-mm-dd hh:mm:ss" 表示年、月、日、小时、分钟和秒。

有了这些函数，我们就可以方便地在 VBA 中显示 Unix 时间了。

参考文献

• Microsoft Docs: Timer 函数
• Microsoft Docs: DateAdd 函数
• Microsoft Docs: Format 函数