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