VBA如何获取网络日期

gtol

我想在用VBA获取百度服务器的当前日期。如何写语句（www.baidu.com.cn)

lb_bn

百度这个网页上有时间吗？

gtol

别的网也行，只要是网络日期就行

gtol

Dim objXML As Object
    Dim strTemp As String
    Dim lStart As Long
    Dim lEnd As Long
    Dim DtWeb As Date
    Dim arr
    Set objXML = CreateObject("Microsoft.XMLHTTP")
    Randomize   '初始化随机数，避免IE缓存重复
    objXML.Open "Get", "http://www.timeanddate.com/worldclock/city.html?n=33&Refresh=" & Rnd, False
    objXML.sEnd ""
    strTemp = objXML.responseText
    Set objXML = Nothing
    lStart = InStr(1, strTemp, "Current Time", vbTextCompare)
    lEnd = InStr(lStart, strTemp, "</strong>", vbTextCompare)
    strTemp = Mid(strTemp, lStart, lEnd - lStart)
    strTemp = Replace(strTemp, "Current Time</th><td><strong id=ct  class=big>", "")
    arr = Split(strTemp, ",")
    网络时间= CDate(arr(1) & arr(2))

lb_bn

学习了，谢谢老师。

恒河沙1

好东西 收藏了

www505

这个主要有什么用途

李巴

这个要好好学习

guojianlin1985

估计是做软件限制用。为了避免用户调整时间。

lotteryman

好贴，顶一下。