Excel VBA 获取网络时间函数接口

CDamogu

于 2022-01-04 19:02:24 发布

阅读量2.6k

点赞数

CC 4.0 BY-SA版权

文章标签： vba

本文链接：https://blog.youkuaiyun.com/qq_33704787/article/details/122309425

该博客介绍了如何使用VBA编写一个函数，通过发送POST请求到百度获取网络时间，并将其转换为日期格式。此外，还提供了一个辅助函数`TimeCheck`用于判断当前时间是否早于指定日期。这个功能在自动化脚本中对于时间校验非常有用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

VBA获取网络时间函数接口

Public Function getWebDatetime()
    Dim XmlHttp As Object
    XmlHttp = CreateObject("Microsoft.XMLHTTP")
    XmlHttp.Open("POST", "https://www.baidu.com/", False)
    XmlHttp.send()
    getWebDatetime = (CDate(Date.FromOADate(1 / 3 + CDbl(CDate(Mid$(XmlHttp.getResponseHeader("Date"), 5, 21)).ToOADate()))))
    XmlHttp = Nothing
End Function

判断

    Private Function TimeCheck() As Boolean
        Dim ExpiredDate As Date
        ExpiredDate = "2022,12,30"
        Dim RetValue As Boolean
        RetValue = False
        If getWebDatetime() < ExpiredDate Then
            RetValue = True
        End If
        TimeCheck = RetValue
    End Function