- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- Unix时间戳日期转换 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118348)
-- 发布时间：2018/4/30 12:47:00
-- Unix时间戳日期转换
在微信接口中时间格式是Unix时间戳，如何在狐表开发的日期格式转换成Unix时间戳，请指教！！
[此贴子已经被作者于2018/4/30 12:46:56编辑过]
-- 发布时间：2018/4/30 14:30:00
--
参考
Dim st As New Date(1970,1,1,8,0,0)
Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) \'时间戳
msgbox(timestamp)
Dim d = st.AddSeconds(timestamp)
msgbox(d)
-- 发布时间：2018/4/30 15:53:00
--
Dim ul As String = "https://qyapi.weixin.qq.com/cgi-bin/checkin/getcheckindata?access_token={0}&opencheckindatatype={1}&starttime={2}&endtime={3}"
Dim AccessToken = Functions.Execute("GetQYAccessToken") \'AccessTiken
Dim Date2 As Date = Date.now
Dim Date1 As Date = Date2.Adddays(-3)
Dim st As New Date(1970,1,1,8,0,0)
Dim starttime As Integer = CInt((Date1 - st).TotalSeconds()) \'时间戳
Dim endtime As Integer = CInt((Date2 - st).TotalSeconds()) \'时间戳
Dim opencheckindatatype As Integer = 3
Dim hc As New HttpClient(CExp(ul,AccessToken,opencheckindatatype,starttime,endtime))
Dim jo1 As New JObject
jo1("useridlist") = New Jarray("2222","yanglm")
hc.Content= jo1.ToString()
Dim jo As JObject = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
MessageBox.Show(jo("errmsg"))
MessageBox.Show(jo("checkindata"))
Else
MessageBox.Show(jo.ToString)
End If
-- 发布时间：2018/4/30 15:54:00
--
此主题相关图片如下：qq图片20180430154941.png
报错如上图
此主题相关图片如下：qq图片20180430154838.png
-- 发布时间：2018/4/30 15:55:00
--
以上报错请指点！！
-- 发布时间：2018/4/30 16:16:00
--
时间戳网上查询到应当13位，上述代码转时间戳为10位，请指教！！
-- 发布时间：2018/4/30 16:41:00
--
要发送的是json数据
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=102464&skin=0
类似 http://www.foxtable.com/mobilehelp/scr/0166.htm