以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  时间戳怎么换算为时间  (http://foxtable.net/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...
谢谢!