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

最新推荐文章于 2024-05-15 07:00:00 发布

CDamogu

最新推荐文章于 2024-05-15 07:00:00 发布

阅读量2.3k

点赞数

文章标签： vba

本文链接：https://blog.csdn.net/qq_33704787/article/details/122309425

版权

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