急死了，哪位高手能帮小弟我讲解下这段代码的意思
急死了，谁能帮我讲解下这段代码的意思
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 = Nothing
End Function
谁来帮我解释下这段代码的意思，急死我了。这段代码怎么加一个条件语句来判断是否联网呢？网络获取的日期怎么和我自己设定的日期对比得到还剩下多少天？
------解决方案--------------------
这个代码是用 Microsoft.XMLHTTP 对象，来获取“网页代码”。
当然这个算不上是网页的真正“源码”。
特别是象你这种访问“动态ASP网页”时，得到的都是asp代码生成的数据。
其实你不用关心是否联网，在这个过程中，写上“异常处理”就行了。
如果没有联网，或访问外网失败（比如局域网、某些IP的电脑被限制不能上公网），
在 XmlHttp.Send 那儿，就会引起异常。这时返回空字符串就行了。
你只要对返回值进行判断，是空串就表示错误，管它是否“联网”呢。
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 = Nothing
End Function
谁来帮我解释下这段代码的意思，急死我了。这段代码怎么加一个条件语句来判断是否联网呢？网络获取的日期怎么和我自己设定的日期对比得到还剩下多少天？
------解决方案--------------------
这个代码是用 Microsoft.XMLHTTP 对象，来获取“网页代码”。
当然这个算不上是网页的真正“源码”。
特别是象你这种访问“动态ASP网页”时，得到的都是asp代码生成的数据。
其实你不用关心是否联网，在这个过程中，写上“异常处理”就行了。
如果没有联网，或访问外网失败（比如局域网、某些IP的电脑被限制不能上公网），
在 XmlHttp.Send 那儿，就会引起异常。这时返回空字符串就行了。
你只要对返回值进行判断，是空串就表示错误，管它是否“联网”呢。
Private Sub Command1_Click()
Dim strDate As String
strDate = strGetDate()
If (strDate = "") Then
MsgBox "访问网络出错！", 32
Else
MsgBox "当前日期是：" & strDate
End If
End Sub
Private Function strGetDate() As String
Dim XmlHttp As Object
Dim strRet As String
On Error GoTo E_Hdl_Get
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "Get", "http://www.symental.com/time/date.asp", False
XmlHttp.Send
strRet = StrConv(XmlHttp.ResponseBody, vbUnicode)
E_Hdl_Get:
Set XmlHttp = Nothing
strGetDate = strRet
End Function