专家坐堂-时间戳怎么换算为时间Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  时间戳怎么换算为时间  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=184386)

--  作者：machle
--  发布时间：2022/12/5 11:01:00
--  时间戳怎么换算为时间
请问这个时间戳数据，有什么代码可以换成时间： 1670084914184

谢谢！

[此贴子已经被作者于2022/12/5 11:01:27编辑过]

--  作者：machle
--  发布时间：2022/12/5 11:19:00
--  回复：（machle）时间戳怎么换算为时间

自己找到了，谢谢！

Dim dtStart As DateTime = TimeZone.CurrentTimeZone.ToLocalTime(New DateTime(1970, 1, 1))
Dim dtResult As DateTime = dtStart.AddMilliseconds(1670084973984)
MessageBox.show(dtResult)

--  作者：chen37280600
--  发布时间：2022/12/5 11:29:00
--

\'1时间转时间戳---
Dim BasicTime As New Date(1970, 1, 1, 8, 0, 0)
Dim NowTime As Date = Date.Now \'当前时间
Dim TimeStamp As Long = CLng((NowTime - BasicTime).TotalSeconds())

\'2时间戳转时间---
Dim BasicTime As New Date(1970, 1, 1, 8, 0, 0)
Dim TimeStamp As Long = 1551938556 \'时间戳
Dim NowTime = BasicTime.AddSeconds(TimeStamp)

--  作者：machle
--  发布时间：2022/12/5 14:24:00
--  回复：（chen37280600）'1时间转时间戳---Dim BasicTi...
谢谢！