在VBA中，如何以简单的方式将UTC UNIX时间戳转换为本地时区日期？

据我所知，我们可以使用下面的方法将 UNIX 时间戳粗略地转换为 VB 日期

CDate([UNIX 时间戳]/ 60 / 60 / 24) + "1/1/1970"

但是，不考虑时区和日光信息。

时区并不是什么大问题。但我无法获取特定 UNIX 时间戳的夏令时偏差信息。

虽然日期 1/1 的日光偏差与日期 6/1 明显不同，但是对于日期 3/12 或日期 11/5，日光偏差计算非常复杂。

我尝试了几个 API，例如“FileTimeToLocalFileTime”和“GetTimeZoneInformation”，但它们都不起作用。

这是我的代码，无法处理日光偏差

Option Explicit

#If VBA7 Then
  Private Declare PtrSafe Function LocalFileTimeToFileTime Lib "kernel32" (src@, tgt@) As Long
  Private Declare PtrSafe Function FileTimeToLocalFileTime Lib "kernel32" (src@, tgt@) As Long
#Else
  Private Declare Function LocalFileTimeToFileTime Lib "kernel32" (src@, tgt@) As Long
  Private Declare Function FileTimeToLocalFileTime Lib "kernel32" (src@, tgt@) As Long
#End If

Public Function ToUTC(ByVal datetime As Date) As Date
  Dim ftLoc@, ftUtc@
  ftLoc = (datetime - #1/1/1601#) * 86400000
  LocalFileTimeToFileTime ftLoc, ftUtc
  ToUTC = ftUtc / 86400000# + #1/1/1601#
End Function

Public Function FromUTC(ByVal datetime As Date) As Date
  Dim ftUtc@, ftLoc@
  ftUtc = (datetime - #1/1/1601#) * 86400000
  FileTimeToLocalFileTime ftUtc, ftLoc
  FromUTC = ftLoc / 86400000# + #1/1/1601#
End Function

Function getDateFromTimestamp(ByVal value) As Date
    Dim t1, t2
    t1 = CDate(value / 60 / 60 / 24) + "1/1/1970"
    t2 = FromUTC(t1)
    Debug.Print t2 - t1
    getDateFromTimestamp = t2
End Function

可能最简单的方法是通过 COM Interop 来使用DateTime.NET 内置的 API。对于这种方法有一个很好的介绍在这个答案中 https://stackoverflow.com/a/19955042/634824.

创建 C# 类库。为了让事情变得更简单，请以 .NET Framework 4.6 或更高版本为目标，这样您就可以使用FromUnixTimeSeconds and ToUnixTimeSeconds上的方法DateTimeOffset class.

using System;
using System.Runtime.InteropServices;

namespace MyDateTimeLibrary
{
    [Serializable]
    [ComVisible(true)]
    [ClassInterface(ClassInterfaceType.AutoDual)]
    public class DateTimeFunctions
    {
        public DateTime UnixTimeToDateTime(int unixTimeInSeconds)
        {
            return DateTimeOffset.FromUnixTimeSeconds(unixTimeInSeconds).UtcDateTime;
        }

        public long DateTimeUtcToUnixTime(DateTime utcDateTime)
        {
            return new DateTimeOffset(utcDateTime, TimeSpan.Zero).ToUnixTimeSeconds();
        }

        public DateTime UtcToLocal(DateTime utcDateTime)
        {
            return utcDateTime.ToLocalTime();
        }

        public DateTime LocalToUtc(DateTime localDateTime)
        {
            return localDateTime.ToUniversalTime();
        }

        public DateTime TZSpecificDateTimeToUTC(DateTime sourceDateTime, string sourceTimeZoneId)
        {
            var tzi = TimeZoneInfo.FindSystemTimeZoneById(sourceTimeZoneId);
            return TimeZoneInfo.ConvertTimeToUtc(sourceDateTime, tzi);
        }

        public DateTime UTCToTZSpecificDateTime(DateTime utcDateTime, string destinationTimeZoneId)
        {
            var tzi = TimeZoneInfo.FindSystemTimeZoneById(destinationTimeZoneId);
            return TimeZoneInfo.ConvertTimeFromUtc(utcDateTime, tzi);
        }
    }
}

对于你所要求的，你真的只需要UnixTimeToDateTime and UtcToLocal上面代码中的方法，但我想我应该为其他可能处于类似情况的人提供更多的方法。实际上，您可以在 .NET 中执行的任何操作都可以在这里执行。互联网DateTime, DateTimeOffset and TimeZoneInfoAPI 比完成类似工作所需的 Win32 API 更简单、更可靠。

检查Register for COM interop构建之前的选项（如前面链接的答案中所述），或者通过 COM 注册您的 DLLRegAsm.exe如果您要部署到另一台计算机，则可以使用该实用程序。

接下来，将 VBA 项目中的引用添加到新注册的项目中MyDateTimeLibrary。然后使用它，就像这样（例如）：

Sub Test()

    Dim dtf As New MyDateTimeLibrary.DateTimeFunctions
    Dim utcDt As Date, localDt As Date

    utcDt = dtf.UnixTimeToDateTime(1487010504)
    localDt = dtf.UtcToLocal(utcDt)

    MsgBox ("UTC: " + CStr(utcDt) + vbCrLf + "Local: " + CStr(localDt))

    Set dtf = Nothing

End Sub

我相信您可以重构它来编写一些有用的 VBA 函数，这些函数可以传入和传出要转换的日期、从 Excel 单元格或任何您的上下文中调用这些函数。我会把这部分留给你。