VB获取网络日期代码

Private Sub Form_Load()

    MsgBox getWbDatetime

End Sub

Public Function getWbDatetime() As String

    Dim XmlHttp As Object

    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")

    XmlHttp.Open "Get", "http://time.tianqi.com/", False

    XmlHttp.send

    getWbDatetime = CDate(1 / 3 + CDbl(CDate(Mid$(XmlHttp.getResponseHeader("Date"), 5, 21))))

    Set XmlHttp = Nothing

End Function