VBA如何将json的时间数字串转换为正常格式？

issykul

如下"addtime":"1398739636"为时间，但是如何将1398739636转换为能看得懂的时间格式？用VBA什么函数？还是需要用java来编程？  {"account":"10616.490000","addtime":"1398739636","auto_repurchase":1,"award_after_push":0,"borrow_account":0,"borrow_id":2004,"id":15121,"interest":"176.941500","is_auto_tender":0,"money":"10616.490000","repay_account":"10793.431500","repay_time":"1401379199","repayment_account":"10793.431500","repayment_yesaccount":"0.000000","site_id":0,"status":0,"user_id":16711,"username":"*onghuimin","wait_account":"10793.431500","wait_interest":"176.941500"},

issykul

不知道是否有经验共享？

chxw68

issykul 发表于 2014-5-8 07:18
不知道是否有经验共享？

请问：1398739636显示的日期是什么？知道显示的日期后才有可能推算出两者的计算公式。

ccwan

chxw68 发表于 2014-5-8 08:32
请问：1398739636显示的日期是什么？知道显示的日期后才有可能推算出两者的计算公式。

http://www.w3school.com.cn/jsref/jsref_obj_date.asp

ccwan

我也想知道怎么反推

yaozong

如果addtime是秒数

Private Sub CommandButton1_Click()
  Dim addtime, x#
  addtime = 1398739636
  x = addtime / 86400
  MsgBox Format(x, "yyyy-m-d hh:mm:ss")
End Sub

wcymiss

我以前做过两个自定义函数：
Function Long2Date(t)
    Long2Date = t / 24 / 3600 + DateSerial(1970, 1, 1) + TimeSerial(8, 0, 0)
End Function

Function Date2Long(t)
    Date2Long = (t - DateSerial(1970, 1, 1) - TimeSerial(8, 0, 0)) * 24 * 3600
End Function

1398739636是从格林威治时间的1970年1月1日0点到某个时间的秒数。中国处于东八区，所以转换时要加或减去8个小时。

issykul

ccwan 发表于 2014-5-8 08:58
http://www.w3school.com.cn/jsref/jsref_obj_date.asp

VBA如何调用java编程啊？

bluexuemei

1. Sub bxm()
   
2. Dim x
   
3. x = 1398739636 / 3600 / 24 + #1/1/1970 8:00:00 AM#
   
4. MsgBox x
   
5. End Sub
   

复制代码

issykul

wcymiss 发表于 2014-5-8 10:48
我以前做过两个自定义函数：
Function Long2Date(t)
    Long2Date = t / 24 / 3600 + DateSerial(1970,  ...

高人啊！  不胜感激