主题：Date.Today获取的是网络时间,还是本地计算机时间

 获取网络时间，参考

Dim url As String = "http://api.k780.com:88/?app=life.time&appkey=10003&sign=b59bc3ef6191eb9f747dd4e83c99f2a4&format=json"
Dim hc As New HttpClient(url)
Dim str As String = hc.GetData()
Output.Show(str)

Dim jo As JObject = JObject.Parse(str)

Dim d As Date = jo("result")("datetime_1")
msgbox(d)