VB获取时间
在机房收费系统中，时间不统一是很麻烦。尤其是时间格式不统一。
在vb机房收费系统中有几种获取时间的方法。
一，使用date和time获取电脑时间，这种事件往往因为人为原因而不统一。当然也有其好处，就是简单。
Print Date; "日期"
Print Time; "时间"
Print Now; "日期和日间"
Print Format(Now, "yyyy年mm月dd日hh时mm分ss秒")
Print Year(Now); "年"
Print Month(Now); "月"
Print Day(Now); "日"
Print Hour(Now); "时"
Print Minute(Now); "分"
Print Second(Now); "秒"
二是。利用网络来获取时间，这种往往是很不方便。要在有网的时候才能使用。听不实际的。用XMLHTTP随机访问一个网站可以获取时间。
（此过程我是借用他人代码，不是很明白，但是方法值得认识一下。不过个人感觉复杂）
Dim obj, OBJStatus, Url, GetText, i
Dim Retrieval
Url = "http://www.163.com"
'判断网络是否连接
If Url <> "" Then
Set Retrieval =GetObject("winmgmts:\\.\root\cimv2")
Set obj =Retrieval.ExecQuery("Select * From Win32_PingStatus Where Address ='" & Mid(Url, 8) & "'")
For Each OBJStatus In obj
If IsNull(OBJStatus.StatusCode) OrOBJStatus.StatusCode <> 0 Then
Exit Sub
Else
Exit For '已连接则继续
End If
Next
End If
'通过下载网页头信息获取网络时间
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", Url, False,"", ""
.setRequestHeader"If-Modified-Since", "0"
.setRequestHeader"Cache-Control", "no-cache"
.setRequestHeader "Connection","close"
.Send
If .Readystate <> 4 Then Exit Sub
GetText = .getAllResponseHeaders()
i = InStr(1, GetText,"date:", vbTextCompare)
If i > 0 Then '网页下载成功
i = InStr(i, GetText,",", vbTextCompare)
GetText = Trim(Mid(GetText, i + 1))
i = InStr(1, GetText, "GMT", vbTextCompare)
GetText = Left(GetText, i - 1)
MsgBox "网络时间:"& GetText
End If
MsgBox "网络时间:"& GetText
End With
Set Retrieval = Nothing
Set OBJStatus = Nothing
Set obj = Nothing
三，利用winsock控件来获取时间。（窗体上放一个WINSOCK控件）。
编辑WINSOCK控件的DataArrival过程。
四，使用SQL的GetDate函数来获取时间。自定义一个函数。
SqlTime = "select getdate()"
Set MrcTime = ExecuteSQL(SqlTime, MsgTime)