以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何设置时区  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=163038)

--  作者:wohenguaia
--  发布时间:2021/4/21 16:33:00
--  如何设置时区


Date 必须从时间戳 X-TC-Timestamp 计算得到,且时区为 UTC+0。如果加入系统本地时区信息,例如东八区,将导致白天和晚上调用成功,但是凌晨时调用必定失败。假设时间戳为 1551113065,在东八区的时间是 2019-02-26 00:44:25,但是计算得到的 Date 取 UTC+0 的日期应为 2019-02-25,而不是 2019-02-26。

请问要满足上述要求,如何设置时区为UTC +0的日期

--  作者:有点蓝
--  发布时间:2021/4/21 16:46:00
--  
这个意思?

Dim g As Long = 1551113065
Dim st As New Date(1970,1,1,8,0,0)
Dim d As Date = st.AddSeconds(g)
Output.Show(d)
Output.Show(d.ToUniversalTime())


--  作者:wohenguaia
--  发布时间:2021/4/22 8:48:00
--  
ok
--  作者:wohenguaia
--  发布时间:2021/4/22 8:48:00
--  
谢谢