Private Function GetTime() As Date Dim TimeStr As String Dim oXMLHTTP As Object Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP") oXMLHTTP.open "HEAD", "http://www.baidu.com", False '取百度的时间 oXMLHTTP.send TimeStr = oXMLHTTP.getResponseHeader("Date") GetTime = DateAdd("h", 8, CDate(Trim(Split(Split(TimeStr, ",")(1), "GMT")(0))))End Function