以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于Long类型的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=146337)

--  作者:81538475
--  发布时间:2020/2/21 17:18:00
--  [求助]关于Long类型的问题
有个API接口的日期是long形
范例上是这么写的

req.HiredDate = 2020-12-12L

但是我如果用代码就不知道这个L该怎么加上去了.怎么弄都不对

比如我有个日期空间
Dim dtp5 As WinForm.DateTimePicker = Forms("人员录入查询").Controls("DateTimePicker5")

想把这个控件的日期放进去,应该如何处理呢


--  作者:有点蓝
--  发布时间:2020/2/21 17:37:00
--  
接口文档和范例发上来看看
--  作者:81538475
--  发布时间:2020/2/21 19:59:00
--  
https://ding-doc.dingtalk.com/doc#/serverapi2/ege851
创建用户里面
不知道需不需要登陆

--  作者:有点蓝
--  发布时间:2020/2/21 21:36:00
--  
Dim dtp5 As WinForm.DateTimePicker = Forms("人员录入查询").Controls("DateTimePicker5")
日期转换为Unix时间戳
Dim hiredDate As Long = Clng((dtp5.value - TimeZone.CurrentTimeZone.ToLocalTime(new Date(1970, 1, 1))).TotalSeconds)
req.HiredDate = hiredDate 
Output.Show(hiredDate)

Unix时间戳转换为日期
Dim d As Date = TimeZone.CurrentTimeZone.ToLocalTime(new Date(1970, 1, 1)).AddSeconds(hiredDate )
Output.Show(d)

--  作者:81538475
--  发布时间:2020/2/21 21:40:00
--  
多谢多谢
--  作者:81538475
--  发布时间:2020/2/21 21:48:00
--  
---------------------------
错误
---------------------------
编译错误:没有为类型“Object”和“Date”定义运算符“-”。



错误代码:Dim hiredDate As Long = CLng((dtp5.value - TimeZone.CurrentTimeZone.ToLocalTime(new Date(1970, 1, 1))).TotalSeconds)
---------------------------
确定   
---------------------------
这个报错如何处理了.


--  作者:81538475
--  发布时间:2020/2/21 22:02:00
--  
加了各 CDATE 就号 了.