在任意时区之间转换

2024-03-10

我正在尝试找到一种简单而强大的方法来在任意时区之间转换时间。

This: http://www.cpearson.com/excel/TimeZoneAndDaylightTime.aspx http://www.cpearson.com/excel/TimeZoneAndDaylightTime.aspx仅解释如何在我的（当前）TZ 和另一个 TZ 之间进行转换。

这两篇 SO 文章（获取 Windows 时区信息 (C++/MFC) https://stackoverflow.com/questions/12112419/getting-windows-time-zone-information-c-mfc#24410696 and 如何获取 Windows 中任意时区的信息？ https://stackoverflow.com/questions/3623471/how-do-you-get-info-for-an-arbitrary-time-zone-in-windows?rq=1）谈论从注册表中获取信息。

这听起来有点过于复杂和耗时；此外，Windows 似乎以“全名”存储 TZ（例如(UTC-08:00) Pacific Time (US & Canada)）并且我更愿意使用缩写（例如 EDT）来引用 TZ。此外，依赖 Windows 注册表也可能不安全：不同的用户可能有不同的版本，有些可能不是最新的。这意味着由两个人运行的报告可能会提供两个不同的结果！

有没有一种更简单、更稳健的方法？编写查找表可能会在一段时间内起作用，但当政府决定废除夏令时或改变其他任何内容时，它就会被破坏。

也许从互联网上获取 TZ 列表并解析它？这样就足够安全了吗？

Update 1

我已经进行了研究并探索了可能性，但这个问题并不像看起来那么微不足道。如果您认为该函数应类似于bTime = aTime + 3，那么请重新考虑。时区和夏令时处于不断变化的状态。

阅读本文以供参考：待定/提议的时区更改列表 https://www.timeanddate.com/news/time/。请注意，一些国家实际上正在改变他们的时区，不仅仅是夏令时设置！巴西将时钟更改日期改为冬令时！所有这些更改都会很快破坏静态查找表。

Update 2

我不是在研究快速而肮脏的黑客，我可以自己想出这个。我不想写下一些东西然后就忘记了；我想创建一个函数，其他人可以安全地将其用于不同的内部项目，而无需维护噩梦。硬编码常量是known偶尔改变是一个非常糟糕的软件设计（想想由一段非常非常旧的代码引起的Y2K bug）。

Update 3

这个数据库看起来不错（虽然我不确定它是否足够稳定）：https://timezonedb.com/api https://timezonedb.com/api。他们甚至有一个 TZ 转换调用 - 正是我所需要的！我可能会尝试从 VBA 解析 XML 并分享我的结果。

API 位于https://timezonedb.com/references/convert-time-zone https://timezonedb.com/references/convert-time-zone确实是一个在全球范围内获得正确信息的好地方time, timezone, and 两个位置之间的时区偏移，考虑过去/未来夏令时的变化。

您建议的仅指定时区缩写的方法存在问题（例如“将 PST 转换为 EST”）这个 API 会占用你的区域字面上地，即使它们是不正确的。

所以，如果多伦多目前处于EDT https://time.is/EDT但你指定EST https://time.is/EST，您可能会得到不正确的时间。使用“全名”，例如(UTC-08:00) Pacific Time (US & Canada)会有同样的问题。

解决这个问题的方法是指定时区名称，例如America/Vancouver（如所列here https://timezonedb.com/time-zones)，或者使用适当的参数指定城市、国家和/或地区名称。

我编写了一个函数来解决这个问题，但它仅适用于某些国家（请参阅下文）。

去年万圣节晚上 11:11 温哥华时间多伦多是什么时候？

Result:（默认为XML but JSON也可用。）

<result>
    <status>OK</status>
    <message/>
    <fromZoneName>America/Vancouver</fromZoneName>
    <fromAbbreviation>PDT</fromAbbreviation>
    <fromTimestamp>1509516660</fromTimestamp>
    <toZoneName>America/Toronto</toZoneName>
    <toAbbreviation>EDT</toAbbreviation>
    <toTimestamp>1509527460</toTimestamp>
    <offset>10800</offset>
</result>

以编程方式获取数据：

您必须决定多种选项和查找方法，但这里有一个使用 VBA 函数的示例：

圣诞节那天温哥华和柏林之间的时差是多少？

输入时间： 2018-12-25 00:00:00= 温哥华本地 Unix 时间1545724800

Function GetTimeZoneOffsetHours(fromZone As String, _
            toZone As String, UnixTime As Long) As Single

    Const key = "94RKE4SAXH67"
    Const returnField = "<offset>"
    Dim HTML As String, URL As String
    Dim XML As String, pStart As Long, pStop As Long

    URL = "http://api.timezonedb.com/v2/convert-time-zone?key=" & key & _
        "&from=" & fromZone & "&to=" & toZone & "&time=" & UnixTime
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", URL, False
        .Send
        XML = .ResponseText
    End With

    pStart = InStr(XML, returnField)
    If pStart = 0 Then
        MsgBox "Something went wrong!"
        Exit Function
    End If

    pStart = pStart + Len(returnField) + 1
    pStop = InStr(pStart, XML, "</") - 1
    GetTimeZoneOffsetHours = Val(Mid(XML, pStart, pStop - pStart)) / 60
End Function


Sub testTZ()
    Debug.Print "Time Zone Offset (Vancouver to Berlin) = " & _
        GetTimeZoneOffsetHours("America/Vancouver", _
        "Europe/Berlin", 1545724800) & " hours"
End Sub

Unix/UTC 时间戳：

Unix 时间定义为“自 1970 年 1 月 1 日星期四 00:00:00 协调世界时间 (UTC) 以来经过的秒数。"

您可以在 Unix 和/或 UTC 或本地时间之间转换时间：epochconverter.com https://www.epochconverter.com/...该网站还提供多种编程语言的转换公式。

例如，转换公式Unix 时间转 GMT/UTC在Excel中是：
=(A1 / 86400) + 25569

您还可以下载静态文件（在SQL or CSV格式）here https://timezonedb.com/download而不是调用 API，并且该页面还有示例查询。However请谨慎使用：夏令时更容易出错（如上所述）。

我创建了一个虚拟帐户来获取示例中使用的“演示”，但您应该获得自己的（免费）密钥以供长期使用。（如果它因过度使用而被锁定，我不承担任何责任！）

An good alternative Time Zone API is Google Maps Time Zone API https://developers.google.com/maps/documentation/timezone/intro. The difference is that you specify Latitude & Longitude. ~~It seems to work just fine without a key~~ You'll need to register https://developers.google.com/maps/documentation/timezone/get-api-key for a key.

6 月 1 日白宫的时区偏移是多少？

Result:

{
   "dstOffset" : 0,
   "rawOffset" : -18000,
   "status" : "OK",
   "timeZoneId" : "America/Toronto",
   "timeZoneName" : "Eastern Standard Time"
}

偏移量将为 -18000 秒（-5 小时）。

确定夏令时何时生效

下面是我整理的一个函数，这样我就可以“信任”从不同 API 获取的夏令时 (DST) 值，但是（正如其他人所讨论的）规则没有模式plus国家不断变化，甚至世界某些地区的城镇不断变化，因此这只适用于以下国家：

DST 于每年三月的第二个星期日开始
DST 于每年 11 月的第一个星期日结束

The applicable countries are Bahamas, Bermuda, Canada, Cuba, Haiti, St. Pierre & United States. _{(Source: Daylight saving time by country https://en.wikipedia.org/wiki/Daylight_saving_time_by_country**)}

Function IsDST(dateTime As Date) As Boolean

    'Returns TRUE if Daylight Savings is in effect during the [dateTime]
    'DST Start (adjust clocks forward) Second Sunday March at 02:00am
    'DST end (adjust clocks backward) First Sunday November at 02:00am

    Dim DSTStart As Date, DSTstop As Date

    DSTStart = DateSerial(Year(dateTime), 3, _
        (14 - Weekday(DateSerial(Year(dateTime), 3, 1), 3))) + (2 / 24)
    DSTstop = DateSerial(Year(dateTime), 11, _
        (7 - Weekday(DateSerial(Year(dateTime), 11, 1), 3))) + (2 / 24)
    IsDST = (dateTime >= DSTStart) And (dateTime < DSTstop)

End Function

以及我如何使用函数的几个例子IsDST*:

Public Function UTCtoPST(utcDateTime As Date) As Date
    'Example for 'PST' time zone, where Offset = -7 during DST, otherwise if -8

    If IsDST(utcDateTime) Then
        UTCtoPST = utcDateTime - (7 / 24)
    Else
        UTCtoPST = utcDateTime - (8 / 24)
    End If

End Function


Function UTCtimestampMStoPST(ByVal ts As String) As Date
    'Example for 'PST', to convert a UTC Unix Time Stamp to 'PST' Time Zone

    UTCtimestampMStoPST = UTCtoPST((CLng(Left(ts, 10)) / 86400) + 25569)

End Function

* _{Note that function IsDST is incomplete: It does not take into account the hours just before/after IsDST takes actually effect at 2am. Specifically when, in spring, the clock jumps forward from the last instant of 01:59 standard time to 03:00 DST and that day has 23 hours, whereas in autumn the clock jumps backward from the last instant of 01:59 DST to 01:00 standard time, repeating that hour, and that day has 25 hours ...but, if someone wants to add that functionality to update the function, feel free! I was having trouble wrapping my head around that last part, and didn't immediately need that level of detail, but I'm sure others would appreciate it!}

最后，还有一个替代方案是我用来轮询当前/未来/历史的 APIweather用于各种目的的数据 - 以及also恰好提供时区偏移——是黑暗天空。

它按纬度/经度查询，免费（每天最多 1000 次调用），并提供“超准确的天气数据”（在美国更是如此，它可以预测天气变化minute并致平方码！- 但我在加拿大西海岸看到的不可预测的情况相当准确！）

响应仅采用 JSON 格式，最后一行是时区偏移与 UTC/GMT time.

DarkSky 示例调用：

https://api.darksky.net/forecast/85b57f827eb89bf903b3a796ef53733c/40.70893,-74.00662 https://api.darksky.net/forecast/85b57f827eb89bf903b3a796ef53733c/40.70893,-74.00662

预计 Stack Overflow 总部未来 60 小时都会下雨。 ☂

...但我不知道，到目前为止看起来真是美好的一天！ ☀

_{^{(flag) https://i.stack.imgur.com/kzcWB.gif}}

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)