导读：这又是师傅给我指出的一个问题，说实话，其实开始根本没有当回事，觉得麻烦，可是，等我完成了获取标准北京时间后，我发现，这一步，是必须的。谢谢师傅对我的严格要求，让我一步一步的成长起来！
一、事件缘由
去验收机房的时候，当看着查询结果时，我是又傻了一回眼，我在501做的是24小时制，那边511是12小时制，出的日期和时间完全对不上号。我刚开始觉得没什么，因为我知道只是时间的格式不同而已，但是师傅说，你可以把它改为标准时间，你这时间错乱的，让别人怎么看？当时，就跟师傅说，是不是像手机一样，获取全球卫星定位的那个日期时间，不管我怎么折腾，那都是标准时间。
现在，想想也真是，要是账单查询，可就糟了，这日期和时间全对不上号，该是多么悲剧的一件事。
最先，我系统里的全部时间日期，都是这样写的：
txtOffDate.Text = Date
txtOffTime.Text = Time
其实，只要是计算机设定的时间没有误差，那这样写也就没有错，可是，有时候，就会出现时间格式不统一，可能还有日期不对的情况，这样，我获取的这个日期和时间就是错误的，我写进数据库的所有数据都存在着误差，要真是做财务的，相差一天，或者一个小时的账单不统一，我感觉就会出大问题。经过努力查询（问度娘的，作者不知道是谁，所以没法标注，目前，我写不出这样的，只能勉强理解），终于解决了。
二、解决办法
1，VB获取卫星定位时间，还真让我给弄出了一个，那定位课详细了，什么经度纬度都能给获取到，别说什么日期时间了。但这个真的太高大上了，看了半天都理解不了。所以，给放弃了！
2，通过使用Winsock控件，这个也可以实现，但真的代码一大堆，也有一些理解不了。所以，给放弃了。
3，通过Internet获取网络标准时间，这个也有不同的方法，我现在觉得相对简单的有两种，第一种我不知道怎么把日期和时间分开，所以给弃了。
一、Private Function GetHtml(Url As String)
Dim xmlHttp As Object
Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
xmlHttp.open "GET", Url, True
xmlHttp.send (Null)
While xmlHttp.ReadyState <> 4
DoEvents
Wend
GetHtml = xmlHttp.responseText
End Function
Private Function getTime() As Date
Dim Regex As Object, ms As Object, m As Object
Dim HTML As String
Dim t As String
HTML = GetHtml("http://www.time.ac.cn/timeflash.asp?user=flash")
Set Regex = CreateObject("VBSCRIPT.REGEXP")
Regex.IgnoreCase = True
Regex.Pattern = "<year>(d+)</year><month>(d+)</month><day>(d+)</day>.+?<hour>(d+)</hour><minite>(d+)</minite><second>(d+)</second>"
Set ms = Regex.Execute(HTML)
If ms.Count = 0 Then
getTime = Now()
Else
t = ms.Item(0).SubMatches(0) _
& "-" & ms.Item(0).SubMatches(1) _
& "-" & ms.Item(0).SubMatches(2) _
& " " & ms.Item(0).SubMatches(3) _
& ":" & ms.Item(0).SubMatches(4) _
& ":" & ms.Item(0).SubMatches(5)
If IsDate(t) Then getTime = CDate(t) Else getTime = Now()
End If
End Function
Private Sub Command1_Click()
Call getTime
Text1.Text = getTime
End Sub
然后第二种，就相对而言，好理解多了，活不多说，一个单词一个单词去查吧，拼起来，也就是那个意思了。它的日期和时间，是分开的，也就是想用哪个都可以。推荐感兴趣的人了解了解XmlHttp，还有Set XmlHttp = CreateObject中用的create和我们平时用的new的区别，以及里面的StrConv函数。
二、Private Sub Command1_Click()
Call theTime
Text1.Text = theTime
End Sub
Public Function theTime(Optional getDate As Boolean = True, Optional getTime As Boolean = True) As String
Dim XmlHttp As Object
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
If getDate = True Then
XmlHttp.Open "Get", "http://www.symental.com/time/date.asp", False
XmlHttp.send
theTime = StrConv(XmlHttp.ResponseBody, vbUnicode)
End If
If getTime = True Then
XmlHttp.Open "Get", "http://www.symental.com/time/time.asp", False
XmlHttp.send
theTime = IIf(theTime <> "", theTime & " " & StrConv(XmlHttp.ResponseBody, vbUnicode), StrConv(XmlHttp.ResponseBody, vbUnicode))
End If
Set XmlHttp = Nothing
End Function
三、感受
现在的我，还很弱小，我自己写不出这样的函数，我只能踩着别人的肩膀上，我期望有一天，我的肩膀，也可以让别人踩。我现在还不能完全理解这些代码，但我相信，总有一天，我会的。
我太容易将就，从学生到机房，都是如此，真的很庆幸，我有那么严格要求的师傅。师傅总是很仔细，从用户的使用习惯，用户的实际需求，跟我讲部署，对我的系统进行页面排版上的指导，也能发现我系统中不合理的地方，真的很好，谢谢师傅们的指导。
其实，师傅真的挺关爱我的。那天我说我想当黑客，师傅就跟我说了一个名词：SQL注入，后来，我真的了解了很多，很感兴趣，自己也弄了一个表简单的试了一下，忒恐怖了！也学到了一点点防止ＳＱＬ注入的方法。谢谢师傅！
2014.8.18修改
对于上述所说的解决方案，我感到深深的惭愧。当时太过兴奋，就往上贴了。其实，这些办法是存在问题的：比如说没有网怎么办？
后来，经过师傅的指导，终于知道，根本不用这么复杂，可以在VB中通过SQL语句获取数据库里的时间，这样也能保证时间统一。这个有专门的函数，获取时间日期，每个也就是一行代码的事儿，函数一搜一大把。比如日期：getdate,时间：convert。
请大家多多指教，谢谢！