Question

vb 获取网络时间的代码

vb 获取网络时间的代码
单击后将网络时间存储在变量 中
比如 2016年05月16日
a=21060516

Answer 1

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

Private Sub Command1_Click()
Dim dt As String
dt = Format(strGetDate, "yyyyMMdd")
MsgBox dt
End Sub

追问

亲 ，谢谢你
请问能帮我 加一个 如果 没联网 或者获取不到时间的时候
弹出msgbox 然后unload 吗
谢谢了