主题：[求助]这段获取网络时间的代码在Foxtable中怎样应用？

大家帮忙看看这段获取网络时间的VB代码在Foxtable中怎么用？

Private Sub Command1_Click()
Dim obj, OBJStatus, url, GetText, i
Dim Retrieval
    url = "http://www.baidu.com"
    '判断网络是否连接
    If url <> "" Then
        Set Retrieval = GetObject("winmgmts:\\.\root\cimv2")
        Set obj = Retrieval.ExecQuery("Select * From Win32_PingStatus Where Address = '" & Mid(url, 8) & "'")
        For Each OBJStatus In obj
            If IsNull(OBJStatus.StatusCode) Or OBJStatus.StatusCode <> 0 Then
                Exit Sub
            Else
                Exit For '已连接则继续
            End If
        Next
    End If
   
    '通过下载网页头信息获取网络时间
    Set Retrieval = CreateObject("Microsoft.XMLHTTP")
    With Retrieval
        .Open "Get", url, False, "", ""
        .setRequestHeader "If-Modified-Since", "0"
        .setRequestHeader "Cache-Control", "no-cache"
        .setRequestHeader "Connection", "close"
        .Send
        If .Readystate <> 4 Then Exit Sub
        GetText = .getAllResponseHeaders()
        i = InStr(1, GetText, "date:", vbTextCompare)
        If i > 0 Then '网页下载成功
            i = InStr(i, GetText, ",", vbTextCompare)
            GetText = Trim(Mid(GetText, i + 1))
            i = InStr(1, GetText, " GMT", vbTextCompare)
            GetText = Left(GetText, i - 1)
            MsgBox "网络时间:" & GetText
        End If
    End With
    Set Retrieval = Nothing
    Set OBJStatus = Nothing
    Set obj = Nothing
End Sub

获取国际标准时间，记得考虑时差：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目78.table

结果加上8小时，就是北京时间。

谢谢朱兄，精华！

狐爸别光顾着给自己精华啊，给朱兄也来个精

呵呵，他说过精华是为引起重视，让人学习用。