有没有办法让程序获得的是北京时间或者是网络时间
VB6中Print Date & Time出来的是电脑系统的日期时间,有没有办法让程序获得的是北京时间或者是网络时间。
以下是引用风吹过b在2013-1-26 14:23:33的发言:
前面论坛里有一个人发了相关的问题。你仔细找找。
他的办法是读百度的一个网页,然后得到服务器返回的时间来处理
前面论坛里有一个人发了相关的问题。你仔细找找。
他的办法是读百度的一个网页,然后得到服务器返回的时间来处理
嗯,是的,我现在也是这样做,但是感觉有时候,他时间差几秒。
读取的是该百度页面:http://open.baidu.com/special/time/

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