主题：企业微信获取不到审批人信息

时间戳这样弄

Dim st As New Date(1970,1,1,8,0,0)
Dim d1 As Date = "2017-07-01"
Dim d2 As Date = Date.Today
Dim t1 As Integer = CInt((d1 - st).TotalSeconds()) '时间戳
Dim t2 As Integer = CInt((d2 - st).TotalSeconds()) '时间戳
msgbox(t1)
msgbox(t2)

弹出你返回的值看看 msgbox(hc.GetData)

照抄

http://www.foxtable.com/mobilehelp/scr/0212.htm

AgentId  的处理，帮助文档搜索对应关键字可以看到。