有没有办法让程序获得的是北京时间或者是网络时间 - 编程论坛

#2

风吹过b2013-01-26 14:23

前面论坛里有一个人发了相关的问题。你仔细找找。
他的办法是读百度的一个网页，然后得到服务器返回的时间来处理

[ 本帖最后由风吹过b 于 2013-1-26 14:31 编辑 ]

#3

sounydqb2013-01-26 22:38

进来看看了

#4

seafish0112013-01-27 02:40

以下是引用风吹过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

#5

a8141532013-04-30 05:42

Sub 获取北京时间1()
    On Error Resume Next
    Set oDoc = CreateObject("htmlfile")
    With CreateObject("Microsoft.XMLHTTP")
        .Open "GET", "http://www., False
        .send
        tt = Split(.responsetext, ";")
        MsgBox Split(tt(5), "=")(1) & ":" & Split(tt(6), "=")(1) & ":" & Split(tt(7), "=")(1)
    End With
End Sub

Sub 获取北京时间2()    ' 北京时间
    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = False
        .Navigate "http://open.baidu.com/special/time/"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        For Each linkels In .document.getElementsByName("time")
            stime = Mid(linkels.outerHTML, 16, 8)
            secstime = CInt(Right(stime, 2))
            minstime = CInt(Mid(stime, 4, 2))
            houstime = CInt(Left(stime, 2))
            MsgBox houstime & ":" & minstime & ":" & secstime
        Next
        .Quit
    End With
End Sub

Sub 获取北京时间3()
    On Error Resume Next
    With CreateObject("Microsoft.XMLDOM")
        .async = False
        .Load "http://www.time.
        Set cnd = .DocumentElement.ChildNodes(0).ChildNodes
        MsgBox cnd(4).Text & ":" & cnd(5).Text & ":" & cnd(6).Text
    End With
End Sub

#6

贸易飞2013-05-16 10:07

　　楼主的意思，是不是说，因为本地时间不准（如时限软件，用户更改了计算机时间，欺骗软件还在试用期内），想要得到一个准确的时间，而且是东八区的北京时间？
　　说说我的《贸易飞*万年历》当中的做法：
　　首先，当然是要获得一个准确的时间。我们的要求也不高，使用普通的时间协议（RFC 868）即可，从网络时间服务器上取得一个从1900-1-1　0:0:1起的秒数，这是一个四字节数值，是世界时，即格林威治时间。这一步很简单，比从网页取时间准确可靠，前提是你会用WinSock。
　　
　　取得时间后，把四字节的数值，转化成年月日时分秒，即得到现在的世界时。
　　如果你想得到北京时间，则很简单，世界时加上8个小时（注意月尾，尤其是闰年的处理），因为北京是东八区，就得到了北京时间。
　　我的万年历，考虑到通用性（用户不一定是用北京时间，也许还使用东六区、西八区的时间），我先取本地计算机当中的系统时间（世界时）与当地时间，求出其时差，再把从网络上取回来的准确的世界时，经过时差修正后，转换成计算机用户的当地时间显示给用户。
　　vb有个函数，能得到计算机的时区设置，但我没用过，反正要经过大量的计算，我就直接把当地时间给算出来了，感觉也还简单。
　　