为什么 Outlook.timezones.converttime 的 DST 更改错误？

Question

我在 Excel 中使用以下 VBA 代码：

Function tzAtotzB(srcDT As Date, srcTZ As String, dstTZ As String) As Date
    Dim OutlookApp As Object
    Dim TZones As TimeZones
    Dim convertedTime As Date
    Dim sourceTZ As TimeZone
    Dim destTZ As TimeZone
    Dim secNum As Integer
    
    Set OutlookApp = CreateObject("Outlook.Application")
    Set TZones = OutlookApp.TimeZones
    Set destTZ = TZones.Item(dstTZ)
    Set sourceTZ = TZones.Item(srcTZ)
    
    tzAtotzB = TZones.ConvertTime(srcDT, sourceTZ, destTZ)

End Function

Function CETtoUTC(srcDT As Date) As Date
    CETtoUTC = tzAtotzB(srcDT, "Central Europe Standard Time", "UTC")
End Function

Function UTCtoCET(srcDT As Date) As Date
    UTCtoCET = tzAtotzB(srcDT, "UTC", "Central Europe Standard Time")
End Function

由于某种原因，结果不是人们所期望的：

Debug.Print UTCtoCET("26/03/2022 23:00:00")
27/03/2022
Debug.Print UTCtoCET("27/03/2022 00:00:00")
27/03/2022 02:00:00 
Debug.Print CETtoUTC("27/03/2022 02:00:00")
27/03/2022 
Debug.Print UTCtoCET("28/03/2021 00:00:00")
28/03/2021 02:00:00 

CET 应该从 UTC+1 切换到 UTC+2，从 3 月最后一个星期日的 01:00 UTC 开始（source），但上面的输出显示在 00:00 UTC 从 UTC+1 切换到 UTC+2，这显然是不正确的。

我没有发现我的代码有什么问题。这是 Microsoft 代码库中的已知错误吗？

Answer 1

这似乎是 TimeZones 底层实现中的错误Outlook VBA 对象模型中的 .ConvertTime 方法。

使用您问题中的代码，在引用“Microsoft Outlook 16.0 对象库”后，我能够在 VBA 中重现不准确的结果。 OutlookApplication.Version 为 16.0.0.14931。

使用 .NET TimeZoneInfo 对象上的转换方法，在同一 Windows 计算机上运行的 .NET 应用程序中会得到正确的结果。据我所知，它使用 Windows 注册表中的时区数据，这与 Outlook VBA 库使用的数据相同。

下面是演示正确结果的 .NET C# 代码：

var zone = TimeZoneInfo.FindSystemTimeZoneById("Central Europe Standard Time");

var input1 = DateTimeOffset.Parse("2022-03-27T00:00:00Z");
var output1 = TimeZoneInfo.ConvertTime(input1, zone);
Console.WriteLine($"{input1.UtcDateTime:yyyy-MM-dd'T'HH:mm:ssK} => {output1:yyyy-MM-dd'T'HH:mm:sszzz}");

var input2 = DateTimeOffset.Parse("2022-03-27T01:00:00Z");
var output2 = TimeZoneInfo.ConvertTime(input2, zone);
Console.WriteLine($"{input2.UtcDateTime:yyyy-MM-dd'T'HH:mm:ssK} => {output2:yyyy-MM-dd'T'HH:mm:sszzz}");

哪个输出：

2022-03-27T00:00:00Z => 2022-03-27T01:00:00+01:00
2022-03-27T01:00:00Z => 2022-03-27T03:00:00+02:00

显示了正确的转换，因此数据是正确的。因此，该问题必须特定于 Outlook VBA 实现。如果这对您很重要，我建议向 Microsoft 提出支持问题 。你可以参考这个答案。