资 源 简 介
Private Function strGetDate() As String Dim XmlHttp As Object Set XmlHttp = CreateObject("Microsoft.XMLHTTP") XmlHttp.Open "Get", "http://www.symental.com/time/date.asp", False XmlHttp.send strGetDate = StrConv(XmlHttp.ResponseBody, vbUnicode) Set XmlHttp = NothingEnd Function