专家坐堂-求助：将2017-03-13 15:56:00转化为 1489391760的格式？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助：将2017-03-13 15:56:00转化为 1489391760的格式？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99105)

--  作者：李孝春
--  发布时间：2017/4/12 20:39:00
--  求助：将2017-03-13 15:56:00转化为 1489391760的格式？

Dim BaseDatetime As New DateTime(1970, 1, 1)
Output.Show(BaseDatetime.AddSeconds(1489391760).AddHours(8))
转化为时间格式如下：
2017-03-13 15:56:00

有没有办法反转过来呢？
将2017-03-13 15:56:00转化为 1489391760同样的格式？

--  作者：有点色
--  发布时间：2017/4/12 21:13:00
--
Dim bdate as date = new date(1970, 1,1)
Dim d As Date = "2017-03-13 15:56:00"
Dim sp As TimeSpan = d - bdate
msgbox(sp.TotalSeconds)

--  作者：李孝春
--  发布时间：2017/4/12 22:34:00
--  回复：（有点色）Dim bdate as date = new date(1970,...
谢谢有点色老师

--  作者：有点蓝
--  发布时间：2017/4/13 8:41:00
--
如果是在微信中使用，微信使用的是格林威治时间，有8小时的时差

Dim bdate As Date = new Date(1970, 1,1)
Dim d As Date = "2017-03-13 15:56:00"
Dim sp As TimeSpan = d.AddHours(-8) - bdate
msgbox(sp.TotalSeconds)

或

Dim bdate As Date = new Date(1970, 1,1,8,0,0)
Dim d As Date = "2017-03-13 15:56:00"
Dim sp As TimeSpan = d - bdate
msgbox(sp.TotalSeconds)