VB如何获得网络日期,不是时间

前段我做免费软件用了这种方法,据我所知是最合适的方法
插入 webbrowser2

Private Sub WebBrowser2_DocumentComplete(ByVal pDisp As Object, URL As Variant)

If URL = "http://www.timedate.cn/worldclock/ti.asp" Then

TEMP = WebBrowser2.Document.body.innertext

temp1 = Left(TEMP, 4)

temp2 = Mid(TEMP, InStr(TEMP, "年") + 1, InStr(TEMP, "月") - InStr(TEMP, "年") - 1)
If Len(temp2) < 2 Then temp2 = "0" & temp2

temp3 = Mid(TEMP, InStr(TEMP, "月") + 1, InStr(TEMP, "日") - InStr(TEMP, "月") - 1)

If Len(temp3) < 2 Then temp3 = "0" & temp3

'dels = " 年月日一二三四五六日七星期 ：: "
'For i = 1 To 20
'TEMP = Replace(TEMP, Mid(dels, i, 1), "")
'Next i