Dim st As New Date(1970,1,1,8,0,0)
Dim t1 As Integer = CInt((Date.Today.AddDays(-3) - st).TotalSeconds()) '时间戳开始时间
Dim t2 As Integer = CInt((Date.Now - st).TotalSeconds()) '时间戳结束时间
Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/checkin/getcheckindata?access_token={0}"
Dim hc As New HttpClient(CExp(ur,Functions.Execute("GetQYAccessToken1"),1))
Dim jo As New JObject
jo("starttime") = t1
jo("endtime") = t2
jo("opencheckindatatype") = 3 ' 是 打卡类型.1:上下班打卡;2:外出打卡;3:全部打卡
Dim ja As New Jarray '定义数组
ja.Add("zangs")
ja.Add("lishi")
jo("useridlist") = ja
hc.Content = jo.Tostring()
jo = JObject.Parse(hc.GetData)
If jo("checkindata") IsNot Nothing Then
ja = jo("checkindata")
For i As Integer = 0 To ja.Count - 1
Dim jo2 As JObject =ja(i)
Dim r As Row =Tables("微信打卡").AddNew()
r("用户id") = ja(i)("userid").ToString() '
r("规则名称") = ja(i)("groupname").ToString() '
r("打卡类型") = ja(i)("checkin_type").ToString() '
r("异常类型") = ja(i)("exception_type").ToString() '
r("打卡时间") = ja(i)("checkin_time").ToString() '
r("打卡地点") = ja(i)("location_title").ToString() '
r("地点详情") = ja(i)("location_detail").ToString() '
r("wifi名称") = ja(i)("wifiname").ToString() '
r("备注") = ja(i)("notes").ToString() '
r("MAC地址") = ja(i)("wifimac").ToString()
r("附件") = ja(i)("mediaids").ToString()
Next
Tables("微信打卡").save
End If
-------------------------
ja(i)("checkin_time").ToString() 这个怎么转回日期date格式？
加好友 
发短信
Post By：2019/11/22 15:13:00 [显示全部帖子]
