Foxtable(狐表)用户栏目专家坐堂 → 时间戳怎么换算为时间


  共有6218人关注过本帖树形打印复制链接

主题:时间戳怎么换算为时间

帅哥哟,离线,有人找我吗?
machle
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:358 积分:4053 威望:0 精华:0 注册:2014/7/29 23:42:00
时间戳怎么换算为时间  发帖心情 Post By:2022/12/5 11:01:00 [只看该作者]

请问这个时间戳数据,有什么代码可以换成时间: 1670084914184

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

 回到顶部
帅哥哟,离线,有人找我吗?
machle
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:358 积分:4053 威望:0 精华:0 注册:2014/7/29 23:42:00
回复:(machle)时间戳怎么换算为时间  发帖心情 Post By:2022/12/5 11:19:00 [只看该作者]

自己找到了,谢谢!


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

 回到顶部
帅哥哟,离线,有人找我吗?
chen37280600
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1279 积分:7959 威望:0 精华:4 注册:2017/12/31 14:53:00
  发帖心情 Post By: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
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:358 积分:4053 威望:0 精华:0 注册:2014/7/29 23:42:00
回复:(chen37280600)'1时间转时间戳---Dim BasicTi...  发帖心情 Post By:2022/12/5 14:24:00 [只看该作者]

谢谢!

 回到顶部