以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  13位毫秒时间戳换算为日期的代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160799)

--  作者:weibu
--  发布时间:2021/2/22 15:42:00
--  13位毫秒时间戳换算为日期的代码
老师,如果r是13位毫秒时间戳的值;如何把r换算为日期?
--  作者:有点蓝
--  发布时间:2021/2/22 15:44:00
--  
看这里CreateTime的用法:http://www.foxtable.com/mobilehelp/topics/0176.htm
--  作者:lxhmax
--  发布时间:2022/10/19 11:16:00
--  
    "leave_status": [
      {
        "duration_percent": 50,
        "duration_unit": "percent_day",
        "end_time": 1664423999000,
        "leave_code": "239b0d02-1131-4f75-a1ae-d07e1b36763d",
        "start_time": 1664380800000,
        "userid": "2226351519784659"
      },
图片点击可在新窗口打开查看
老师,我用这个方法会提示上面这个错误是什么原因?
Dim dks As Date = st.AddSeconds(jt("start_time"))

下面这样子才可以正常转换成功,这个转换出来的结果是一样的吗?
Dim ks As Double = jt("start_time")
Dim dks As Date = st.AddSeconds( ks / 1000)

--  作者:有点蓝
--  发布时间:2022/10/19 11:30:00
--  
一样的