有没有办法让程序获得的是北京时间或者是网络时间
VB6中Print Date & Time出来的是电脑系统的日期时间，有没有办法让程序获得的是北京时间或者是网络时间。
2013-01-26 11:59
程序代码：For Each linkels In doc.getElementsByName("time")
stime = Mid(linkels.outerHTML, 16, 8)
secstime = CInt(Right(stime, 2))
minstime = CInt(Mid(stime, 4, 2))
houstime = CInt(Left(stime, 2))
Time = houstime & ":" & minstime & ":" & secstime
Next
2013-01-27 02:40