如何用vba把13位或者10位的时间戳转换为实际的日期时间格式？

您所在的位置：网站首页 › 时间戳excel转换 › 如何用vba把13位或者10位的时间戳转换为实际的日期时间格式？

如何用vba把13位或者10位的时间戳转换为实际的日期时间格式？

2024-07-15 03:31| 来源: 网络整理| 查看: 265

如何用vba把13位或者10位的时间戳转换为实际的日期时间格式？ 2020年7月3日作者：水星Excel 7,050 次浏览暂无评论

在爬取某个网站的返回数据时出现了类似这样的内容：

“ctime”:1593780471

其中ctime是一个时间戳，它表示的是从1970年1月1日 8:0:0到对应的时间为止的毫秒数或者秒数。

知道这样一个时间戳，可以使用如下的VBA代码转换为具体的日期时间：

Sub QQ1722187970() '公众号:水星excel iSecond = 1593780471 dtNow = VBA.DateAdd("s", iSecond, #1/1/1970 8:00:00 AM#) Debug.Print dtNow End Sub

反过来，如果要获取当前的时间对应的时间戳，可以使用如下的代码：

Sub QQ1722187970() '公众号:水星excel iSecond = VBA.DateDiff("s", #1/1/1970 8:00:00 AM#, Now()) Debug.Print iSecond End Sub

上述时间戳是对应的秒数，如果是毫秒数，则还要除以1000。

其它相关文章推荐：如何用vba判断是否打开了excel应用程序？如何在word、ppt中用vba获取已经打开的excel应用程序对象？如何用vba打开显示office剪贴板？联系站长如何在word中使用DocVariable域显示文档变量的值？【工具下载】一键启用Excel、Word、PPT、WPS、Outlook、Access等所有带VBA软件的宏。分类 : EXCEL VBA , VBA 标签 : 时间戳 , 毫秒 , 秒

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。

【本文地址】

如何用vba把13位或者10位的时间戳转换为实际的日期时间格式？

如何用vba把13位或者10位的时间戳转换为实际的日期时间格式？

今日新闻

推荐新闻